---

Step * 1 1 2 of Lemma qinv_wf


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


By

---

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