Step
*
of Lemma
int-vec-mul-mul
∀[a,b:ℤ]. ∀[as:ℤ List].  (a * b * as ~ a * b * as)
BY
{ (Auto THEN RepUR ``int-vec-mul`` 0 THEN (RWO "map-map" 0 THENA Auto) THEN RepUR ``compose`` 0 THEN EqCD THEN Auto) }
Latex:
Latex:
\mforall{}[a,b:\mBbbZ{}].  \mforall{}[as:\mBbbZ{}  List].    (a  *  b  *  as  \msim{}  a  *  b  *  as)
By
Latex:
(Auto
  THEN  RepUR  ``int-vec-mul``  0
  THEN  (RWO  "map-map"  0  THENA  Auto)
  THEN  RepUR  ``compose``  0
  THEN  EqCD
  THEN  Auto)
Home
Index