---

Step * 1 1 4 of Lemma qinv_wf


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


By

---

Latex:
(All  (RepUR  ``qeq  qinv``)
  THEN  (All  (CallByValueReduceOn  \mkleeneopen{}<a5,  a6>\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  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