---

Step * 2 1 1 6 of Lemma iproper-approx


1. y : Top
2. y1 : ℝ
3. iproper(<inr y , inl (inr y1 )>)
4. n : ℕ+
5. r(-n) ≤ (y1 - (r1/r(n)))
6. (r1/r(n + 1)) < (r1/r(n))
7. r(n) < r(n + 1)
8. i-finite([r(-(n + 1)), y1 - (r1/r(n + 1))])
⊢ r(-(n + 1)) < (y1 - (r1/r(n + 1)))
BY
{ (Assert (y1 - (r1/r(n))) < (y1 - (r1/r(n + 1))) BY
         (MoveToConcl (-3)
          THEN GenConclTerms Auto [⌜(r1/r(n + 1))⌝;⌜(r1/r(n))⌝]⋅
          THEN All Thin
          THEN Auto
          THEN nRAdd ⌜(v1 + v) - y1⌝ 0⋅
          THEN Auto)) }

1
1. y : Top
2. y1 : ℝ
3. iproper(<inr y , inl (inr y1 )>)
4. n : ℕ+
5. r(-n) ≤ (y1 - (r1/r(n)))
6. (r1/r(n + 1)) < (r1/r(n))
7. r(n) < r(n + 1)
8. i-finite([r(-(n + 1)), y1 - (r1/r(n + 1))])
9. (y1 - (r1/r(n))) < (y1 - (r1/r(n + 1)))
⊢ r(-(n + 1)) < (y1 - (r1/r(n + 1)))

---

Latex:

---

Latex:

1.  y  :  Top
2.  y1  :  \mBbbR{}
3.  iproper(<inr  y  ,  inl  (inr  y1  )>)
4.  n  :  \mBbbN{}\msupplus{}
5.  r(-n)  \mleq{}  (y1  -  (r1/r(n)))
6.  (r1/r(n  +  1))  <  (r1/r(n))
7.  r(n)  <  r(n  +  1)
8.  i-finite([r(-(n  +  1)),  y1  -  (r1/r(n  +  1))])
\mvdash{}  r(-(n  +  1))  <  (y1  -  (r1/r(n  +  1)))


By

---

Latex:
(Assert  (y1  -  (r1/r(n)))  <  (y1  -  (r1/r(n  +  1)))  BY
              (MoveToConcl  (-3)
                THEN  GenConclTerms  Auto  [\mkleeneopen{}(r1/r(n  +  1))\mkleeneclose{};\mkleeneopen{}(r1/r(n))\mkleeneclose{}]\mcdot{}
                THEN  All  Thin
                THEN  Auto
                THEN  nRAdd  \mkleeneopen{}(v1  +  v)  -  y1\mkleeneclose{}  0\mcdot{}
                THEN  Auto))

---

Home Index