---

Step * 2 1 1 1 1 1 1 of Lemma qabs-qinv


1. s : ℚ
2. ¬(s = 0 ∈ ℚ)
3. p : ℤ
4. q : ℤ
5. 0 < q
6. ¬(q = 0 ∈ ℚ)
7. s = (p/q) ∈ ℚ
8. ¬↑qeq(q;0)
9. ¬((p/q) = 0 ∈ ℚ)
10. ¬(|(p/q)| = 0 ∈ ℚ)
11. 0 < q
12. 0 < p
⊢ <q, p> = let r' ⟵ <p, q> in if isint(r') then <1, r'> else let p,q = r' in <q, p> fi  ∈ ℚ
BY
{ (CallByValueReduce 0 THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:

1.  s  :  \mBbbQ{}
2.  \mneg{}(s  =  0)
3.  p  :  \mBbbZ{}
4.  q  :  \mBbbZ{}
5.  0  <  q
6.  \mneg{}(q  =  0)
7.  s  =  (p/q)
8.  \mneg{}\muparrow{}qeq(q;0)
9.  \mneg{}((p/q)  =  0)
10.  \mneg{}(|(p/q)|  =  0)
11.  0  <  q
12.  0  <  p
\mvdash{}  <q,  p>  =  let  r'  \mleftarrow{}{}  <p,  q>  in  if  isint(r')  then  ə,  r'>  else  let  p,q  =  r'  in  <q,  p>  fi 


By

---

Latex:
(CallByValueReduce  0  THEN  Reduce  0  THEN  Auto)

---

Home Index