---

Step * 1 of Lemma implies-close-reals

.....assertion..... 
1. x : ℝ
2. y : ℝ
3. m : ℕ+
4. k : ℕ
5. |(x m) - y m| ≤ (2 * k)
6. |x - (x within 1/m)| ≤ (r1/r(m))
7. |y - (y within 1/m)| ≤ (r1/r(m))
⊢ |(x within 1/m) - (y within 1/m)| ≤ (r(k)/r(m))
BY
{ ((Assert 0 < 2 * m BY
          Auto)
   THEN (Assert |2 * m| = (2 * m) ∈ ℤ BY
               EAuto 1)
   THEN (Assert r0 < r(2 * m) BY
               Auto)
   THEN (Assert r0 < |r(2 * m)| BY
               Auto)) }

1
1. x : ℝ
2. y : ℝ
3. m : ℕ+
4. k : ℕ
5. |(x m) - y m| ≤ (2 * k)
6. |x - (x within 1/m)| ≤ (r1/r(m))
7. |y - (y within 1/m)| ≤ (r1/r(m))
8. 0 < 2 * m
9. |2 * m| = (2 * m) ∈ ℤ
10. r0 < r(2 * m)
11. r0 < |r(2 * m)|
⊢ |(x within 1/m) - (y within 1/m)| ≤ (r(k)/r(m))

---

Latex:

---

Latex:
.....assertion..... 
1.  x  :  \mBbbR{}
2.  y  :  \mBbbR{}
3.  m  :  \mBbbN{}\msupplus{}
4.  k  :  \mBbbN{}
5.  |(x  m)  -  y  m|  \mleq{}  (2  *  k)
6.  |x  -  (x  within  1/m)|  \mleq{}  (r1/r(m))
7.  |y  -  (y  within  1/m)|  \mleq{}  (r1/r(m))
\mvdash{}  |(x  within  1/m)  -  (y  within  1/m)|  \mleq{}  (r(k)/r(m))


By

---

Latex:
((Assert  0  <  2  *  m  BY
                Auto)
  THEN  (Assert  |2  *  m|  =  (2  *  m)  BY
                          EAuto  1)
  THEN  (Assert  r0  <  r(2  *  m)  BY
                          Auto)
  THEN  (Assert  r0  <  |r(2  *  m)|  BY
                          Auto))

---

Home Index