---

Step * 8 1 1 1 of Lemma i-member-implies


1. y : Top
2. y1 : ℝ
3. r : ℝ
4. M : ℕ+
5. (r ≤ (y1 - (r1/r(M)))) ∧ (r(-M) ≤ r)
6. (r1/r(2 * M)) < (r1/r(M))
7. (r1/r(M)) = (r(2) * (r1/r(2 * M)))
8. r(-(2 * M)) ≤ (r(-M) - (r1/r(2 * M)))
⊢ ∃n,M:ℕ+
   (((r(-n) ≤ r) ∧ (r ≤ (y1 - (r1/r(n)))))
   ∧ (∀y@0:{y@0:ℝ| y@0 < y1} 
        ((((r - (r1/r(M))) ≤ y@0) ∧ (y@0 ≤ (r + (r1/r(M))))) ⇒ ((r(-n) ≤ y@0) ∧ (y@0 ≤ (y1 - (r1/r(n)))))))
   ∧ (((False ∧ True) ⇒ (case ⊥ of inl(a) => a | inr(a) => a < y1)) ⇒ (True ∧ True) ⇒ (r(-n) < (y1 - (r1/r(n))))))
BY
{ (InstConcl [⌜2 * M⌝;⌜2 * M⌝]⋅ THEN Auto) }

1
1. y : Top
2. y1 : ℝ
3. r : ℝ
4. M : ℕ+
5. r ≤ (y1 - (r1/r(M)))
6. r(-M) ≤ r
7. (r1/r(2 * M)) < (r1/r(M))
8. (r1/r(M)) = (r(2) * (r1/r(2 * M)))
9. r(-(2 * M)) ≤ (r(-M) - (r1/r(2 * M)))
⊢ r(-(2 * M)) ≤ r

2
1. y : Top
2. y1 : ℝ
3. r : ℝ
4. M : ℕ+
5. r ≤ (y1 - (r1/r(M)))
6. r(-M) ≤ r
7. (r1/r(2 * M)) < (r1/r(M))
8. (r1/r(M)) = (r(2) * (r1/r(2 * M)))
9. r(-(2 * M)) ≤ (r(-M) - (r1/r(2 * M)))
10. r(-(2 * M)) ≤ r
11. r ≤ (y1 - (r1/r(2 * M)))
12. y@0 : {y@0:ℝ| y@0 < y1} 
13. (r - (r1/r(2 * M))) ≤ y@0
14. y@0 ≤ (r + (r1/r(2 * M)))
15. r(-(2 * M)) ≤ y@0
⊢ y@0 ≤ (y1 - (r1/r(2 * M)))

3
1. y : Top
2. y1 : ℝ
3. r : ℝ
4. M : ℕ+
5. r ≤ (y1 - (r1/r(M)))
6. r(-M) ≤ r
7. (r1/r(2 * M)) < (r1/r(M))
8. (r1/r(M)) = (r(2) * (r1/r(2 * M)))
9. r(-(2 * M)) ≤ (r(-M) - (r1/r(2 * M)))
10. r(-(2 * M)) ≤ r
11. r ≤ (y1 - (r1/r(2 * M)))
12. ∀y@0:{y@0:ℝ| y@0 < y1} 
      ((((r - (r1/r(2 * M))) ≤ y@0) ∧ (y@0 ≤ (r + (r1/r(2 * M)))))
      ⇒ ((r(-(2 * M)) ≤ y@0) ∧ (y@0 ≤ (y1 - (r1/r(2 * M))))))
13. (False ∧ True) ⇒ (case ⊥ of inl(a) => a | inr(a) => a < y1)
14. True
15. True
⊢ r(-(2 * M)) < (y1 - (r1/r(2 * M)))

---

Latex:

---

Latex:

1.  y  :  Top
2.  y1  :  \mBbbR{}
3.  r  :  \mBbbR{}
4.  M  :  \mBbbN{}\msupplus{}
5.  (r  \mleq{}  (y1  -  (r1/r(M))))  \mwedge{}  (r(-M)  \mleq{}  r)
6.  (r1/r(2  *  M))  <  (r1/r(M))
7.  (r1/r(M))  =  (r(2)  *  (r1/r(2  *  M)))
8.  r(-(2  *  M))  \mleq{}  (r(-M)  -  (r1/r(2  *  M)))
\mvdash{}  \mexists{}n,M:\mBbbN{}\msupplus{}
      (((r(-n)  \mleq{}  r)  \mwedge{}  (r  \mleq{}  (y1  -  (r1/r(n)))))
      \mwedge{}  (\mforall{}y@0:\{y@0:\mBbbR{}|  y@0  <  y1\} 
                ((((r  -  (r1/r(M)))  \mleq{}  y@0)  \mwedge{}  (y@0  \mleq{}  (r  +  (r1/r(M)))))
                {}\mRightarrow{}  ((r(-n)  \mleq{}  y@0)  \mwedge{}  (y@0  \mleq{}  (y1  -  (r1/r(n)))))))
      \mwedge{}  (((False  \mwedge{}  True)  {}\mRightarrow{}  (case  \mbot{}  of  inl(a)  =>  a  |  inr(a)  =>  a  <  y1))
          {}\mRightarrow{}  (True  \mwedge{}  True)
          {}\mRightarrow{}  (r(-n)  <  (y1  -  (r1/r(n))))))


By

---

Latex:
(InstConcl  [\mkleeneopen{}2  *  M\mkleeneclose{};\mkleeneopen{}2  *  M\mkleeneclose{}]\mcdot{}  THEN  Auto)

---

Home Index