Step * of Lemma equipollent-int_upper-nat

∀k:ℤ. {k...} ~ ℕ
BY
{ (Auto THEN With ⌜λx.(x - k)⌝ (D 0)⋅ THEN Auto THEN RepeatFor 2 (D 0) THEN Reduce 0 THEN Auto) }

1
1. k : ℤ@i
2. b : ℕ@i
⊢ ∃a:{k...}. ((a - k) = b ∈ ℕ)


Latex:


Latex:
\mforall{}k:\mBbbZ{}.  \{k...\}  \msim{}  \mBbbN{}


By


Latex:
(Auto  THEN  With  \mkleeneopen{}\mlambda{}x.(x  -  k)\mkleeneclose{}  (D  0)\mcdot{}  THEN  Auto  THEN  RepeatFor  2  (D  0)  THEN  Reduce  0  THEN  Auto)




Home Index