---

Step * of Lemma int-dot-mul-right

∀[x:ℤ]. ∀[as,bs:ℤ List].  (as ⋅ x * bs ~ x * as ⋅ bs)
BY
{ (RepeatFor 2 (InductionOnList)
   THEN (UnivCD THENA Auto)
   THEN Unfold `int-vec-mul` 0
   THEN Reduce 0
   THEN Try (Fold `int-vec-mul` 0)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[x:\mBbbZ{}].  \mforall{}[as,bs:\mBbbZ{}  List].    (as  \mcdot{}  x  *  bs  \msim{}  x  *  as  \mcdot{}  bs)


By

---

Latex:
(RepeatFor  2  (InductionOnList)
  THEN  (UnivCD  THENA  Auto)
  THEN  Unfold  `int-vec-mul`  0
  THEN  Reduce  0
  THEN  Try  (Fold  `int-vec-mul`  0)
  THEN  Auto)

---

Home Index