---

Step * 1 2 of Lemma rat-int-part_wf


1. a2 : ℤ
2. a3 : ℤ-o
⊢ eval a = a2 ÷ a3 in
  eval b = a2 rem a3 in
    if (b =z 0) then <a, 0>
    if 0 <z a3 then if 0 ≤z a2 then <a, (b/a3)> else <a - 1, (b + a3/a3)> fi 
    if 0 ≤z a2 then <a - 1, (b + a3/a3)>
    else <a, (b/a3)>
    fi  ∈ {p:ℤ × {r:ℚ| (0 ≤ r) ∧ r < 1} | let x@0,r = p in <a2, a3> = (x@0 + r) ∈ ℚ} 
BY
{ xxx(RenameVar `z1' 1 THEN RenameVar `z2' 2)xxx }

1
1. z1 : ℤ
2. z2 : ℤ-o
⊢ eval a = z1 ÷ z2 in
  eval b = z1 rem z2 in
    if (b =z 0) then <a, 0>
    if 0 <z z2 then if 0 ≤z z1 then <a, (b/z2)> else <a - 1, (b + z2/z2)> fi 
    if 0 ≤z z1 then <a - 1, (b + z2/z2)>
    else <a, (b/z2)>
    fi  ∈ {p:ℤ × {r:ℚ| (0 ≤ r) ∧ r < 1} | let x@0,r = p in <z1, z2> = (x@0 + r) ∈ ℚ} 

---

Latex:

---

Latex:

1.  a2  :  \mBbbZ{}
2.  a3  :  \mBbbZ{}\msupminus{}\msupzero{}
\mvdash{}  eval  a  =  a2  \mdiv{}  a3  in
    eval  b  =  a2  rem  a3  in
        if  (b  =\msubz{}  0)  then  <a,  0>
        if  0  <z  a3  then  if  0  \mleq{}z  a2  then  <a,  (b/a3)>  else  <a  -  1,  (b  +  a3/a3)>  fi 
        if  0  \mleq{}z  a2  then  <a  -  1,  (b  +  a3/a3)>
        else  <a,  (b/a3)>
        fi    \mmember{}  \{p:\mBbbZ{}  \mtimes{}  \{r:\mBbbQ{}|  (0  \mleq{}  r)  \mwedge{}  r  <  1\}  |  let  x@0,r  =  p  in  <a2,  a3>  =  (x@0  +  r)\} 


By

---

Latex:
xxx(RenameVar  `z1'  1  THEN  RenameVar  `z2'  2)xxx

---

Home Index