---

Step * of Lemma qeq-refl

Refl(ℤ ⋃ (ℤ × ℤ-o);r,s.qeq(r;s) = tt)
BY
{ xxx(D 0
      THEN Auto
      THEN Unfold `qeq` 0
      THEN RepeatFor 2 ((CallByValueReduce 0 THENA Auto))
      THEN All D_rational_form
      THEN Reduce 0
      THEN Auto)xxx }

---

Latex:

---

Latex:
Refl(\mBbbZ{}  \mcup{}  (\mBbbZ{}  \mtimes{}  \mBbbZ{}\msupminus{}\msupzero{});r,s.qeq(r;s)  =  tt)


By

---

Latex:
xxx(D  0
        THEN  Auto
        THEN  Unfold  `qeq`  0
        THEN  RepeatFor  2  ((CallByValueReduce  0  THENA  Auto))
        THEN  All  D\_rational\_form
        THEN  Reduce  0
        THEN  Auto)xxx

---

Home Index