---

Step * of Lemma equipollent-int-nat

ℤ ~ ℕ
BY
{ (With ⌜λx.if 0 ≤z x then 2 * x else (2 * ((-x) - 1)) + 1 fi ⌝ (D 0)⋅
   THEN Auto
   THEN RepeatFor 2 (D 0)
   THEN Reduce 0
   THEN Auto) }

1
1. a1 : ℤ@i
2. a2 : ℤ@i
3. if 0 ≤z a1 then 2 * a1 else (2 * ((-a1) - 1)) + 1 fi  = if 0 ≤z a2 then 2 * a2 else (2 * ((-a2) - 1)) + 1 fi  ∈ ℕ@i
⊢ a1 = a2 ∈ ℤ

2
1. b : ℕ@i
⊢ ∃a:ℤ. (if 0 ≤z a then 2 * a else (2 * ((-a) - 1)) + 1 fi  = b ∈ ℕ)

---

Latex:

---

Latex:
\mBbbZ{}  \msim{}  \mBbbN{}


By

---

Latex:
(With  \mkleeneopen{}\mlambda{}x.if  0  \mleq{}z  x  then  2  *  x  else  (2  *  ((-x)  -  1))  +  1  fi  \mkleeneclose{}  (D  0)\mcdot{}
  THEN  Auto
  THEN  RepeatFor  2  (D  0)
  THEN  Reduce  0
  THEN  Auto)

---

Home Index