---

Step * 1 1 3 of Lemma qinv_wf


1. a4 : ℤ
2. a2 : ℤ
3. a3 : ℤ-o
4. qeq(a4;<a2, a3>) = tt
5. ¬↑qeq(a4;0)
⊢ qeq(1/a4;1/<a2, a3>) = tt
BY
{ (All (RepUR ``qeq qinv``)
   THEN (All (CallByValueReduceOn ⌜a4⌝)⋅ THENA Auto)
   THEN (All Reduce THENA Auto)
   THEN (All (CallByValueReduceOn ⌜<a2, a3>⌝)⋅ 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.  a4  :  \mBbbZ{}
2.  a2  :  \mBbbZ{}
3.  a3  :  \mBbbZ{}\msupminus{}\msupzero{}
4.  qeq(a4;<a2,  a3>)  =  tt
5.  \mneg{}\muparrow{}qeq(a4;0)
\mvdash{}  qeq(1/a4;1/<a2,  a3>)  =  tt


By

---

Latex:
(All  (RepUR  ``qeq  qinv``)
  THEN  (All  (CallByValueReduceOn  \mkleeneopen{}a4\mkleeneclose{})\mcdot{}  THENA  Auto)
  THEN  (All  Reduce  THENA  Auto)
  THEN  (All  (CallByValueReduceOn  \mkleeneopen{}<a2,  a3>\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{})\mcdot{}

---

Home Index