---

Step * of Lemma qmul-mul

∀[x,y:ℤ].  (x * y ~ x * y)
BY
{ (((UnivCD THENA Auto) THEN Unfold `qmul` 0 THEN RepeatFor 2 ((CallByValueReduce 0 THENA Auto)))
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[x,y:\mBbbZ{}].    (x  *  y  \msim{}  x  *  y)


By

---

Latex:
(((UnivCD  THENA  Auto)  THEN  Unfold  `qmul`  0  THEN  RepeatFor  2  ((CallByValueReduce  0  THENA  Auto)))
  THEN  Reduce  0
  THEN  Auto)

---

Home Index