---

Step * 1 1 2 1 1 of Lemma equipollent-nat-rationals

.....assertion..... 
1. L : (ℤ × ℕ+) List
2. 0 < ||[1 / map(λp.(snd(p));L)]||
3. 0 ≤ imax-list([1 / map(λp.(snd(p));L)])
4. ↑is-qrep(<1, imax-list([1 / map(λp.(snd(p));L)]) + 1>)
5. i : ℕ
6. i < ||L||
7. <1, imax-list([1 / map(λp.(snd(p));L)]) + 1> = L[i] ∈ (ℤ × ℕ+)
⊢ (imax-list([1 / map(λp.(snd(p));L)]) + 1 ∈ map(λp.(snd(p));L))
BY
{ ((GenListD 0 THEN With ⌜L[i]⌝ (D 0)⋅) THEN Auto) }

---

Latex:

---

Latex:
.....assertion..... 
1.  L  :  (\mBbbZ{}  \mtimes{}  \mBbbN{}\msupplus{})  List
2.  0  <  ||[1  /  map(\mlambda{}p.(snd(p));L)]||
3.  0  \mleq{}  imax-list([1  /  map(\mlambda{}p.(snd(p));L)])
4.  \muparrow{}is-qrep(ə,  imax-list([1  /  map(\mlambda{}p.(snd(p));L)])  +  1>)
5.  i  :  \mBbbN{}
6.  i  <  ||L||
7.  ə,  imax-list([1  /  map(\mlambda{}p.(snd(p));L)])  +  1>  =  L[i]
\mvdash{}  (imax-list([1  /  map(\mlambda{}p.(snd(p));L)])  +  1  \mmember{}  map(\mlambda{}p.(snd(p));L))


By

---

Latex:
((GenListD  0  THEN  With  \mkleeneopen{}L[i]\mkleeneclose{}  (D  0)\mcdot{})  THEN  Auto)

---

Home Index