---

Step * of Lemma mk-rational-qdiv

∀[a,b:ℤ].  (mk-rational(a;b) ~ (a/b))
BY
{ ((UnivCD THENA Auto)
   THEN RepUR ``mk-rational qdiv qinv`` 0
   THEN Repeat (((CallByValueReduce 0 THENA Auto) THEN (Reduce 0 THENA Auto)))
   THEN RepUR ``qmul`` 0
   THEN RepeatFor 2 ((CallByValueReduce 0 THENA Auto))
   THEN (Reduce 0 THENA Auto)
   THEN EqCD
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[a,b:\mBbbZ{}].    (mk-rational(a;b)  \msim{}  (a/b))


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  RepUR  ``mk-rational  qdiv  qinv``  0
  THEN  Repeat  (((CallByValueReduce  0  THENA  Auto)  THEN  (Reduce  0  THENA  Auto)))
  THEN  RepUR  ``qmul``  0
  THEN  RepeatFor  2  ((CallByValueReduce  0  THENA  Auto))
  THEN  (Reduce  0  THENA  Auto)
  THEN  EqCD
  THEN  Auto)

---

Home Index