---

Step * 1 1 1 of Lemma qinv_wf


1. a2 : ℤ
2. a1 : ℤ
3. qeq(a2;a1) = tt
4. ¬↑qeq(a2;0)
⊢ qeq(1/a2;1/a1) = tt
BY
{ (All (RepUR ``qeq qinv``)
   THEN (All (CallByValueReduceOn ⌜a2⌝)⋅ THENA Auto)
   THEN All Reduce
   THEN Auto
   THEN (All (CallByValueReduceOn ⌜a1⌝)⋅ THENA Auto)
   THEN (All Reduce THENA Auto)
   THEN ((RWO "eqtt_to_assert" (-2) THENM RW assert_pushdownC (-2)) THENA Auto)
   THEN Eliminate ⌜a2⌝⋅
   THEN RepeatFor 2 ((CallByValueReduce 0 THENA Auto))
   THEN Reduce 0
   THEN ((RWO "eqtt_to_assert" 0 THENM RW assert_pushdownC 0) THEN Auto)⋅) }

---

Latex:

---

Latex:

1.  a2  :  \mBbbZ{}
2.  a1  :  \mBbbZ{}
3.  qeq(a2;a1)  =  tt
4.  \mneg{}\muparrow{}qeq(a2;0)
\mvdash{}  qeq(1/a2;1/a1)  =  tt


By

---

Latex:
(All  (RepUR  ``qeq  qinv``)
  THEN  (All  (CallByValueReduceOn  \mkleeneopen{}a2\mkleeneclose{})\mcdot{}  THENA  Auto)
  THEN  All  Reduce
  THEN  Auto
  THEN  (All  (CallByValueReduceOn  \mkleeneopen{}a1\mkleeneclose{})\mcdot{}  THENA  Auto)
  THEN  (All  Reduce  THENA  Auto)
  THEN  ((RWO  "eqtt\_to\_assert"  (-2)  THENM  RW  assert\_pushdownC  (-2))  THENA  Auto)
  THEN  Eliminate  \mkleeneopen{}a2\mkleeneclose{}\mcdot{}
  THEN  RepeatFor  2  ((CallByValueReduce  0  THENA  Auto))
  THEN  Reduce  0
  THEN  ((RWO  "eqtt\_to\_assert"  0  THENM  RW  assert\_pushdownC  0)  THEN  Auto)\mcdot{})

---

Home Index