---

Step * 1 1 of Lemma real-continuity4


1. a : ℝ@i
2. b : ℝ@i
3. a < b
4. f : [a, b] ⟶ℝ@i
5. ∀k:ℕ+. ∃d:{d:ℝ| r0 < d} . ∀x,y:{x:ℝ| x ∈ [a, b]} .  ((|x - y| ≤ d) ⇒ (|(f x) - f y| ≤ (r1/r(k)))) 
   supposing ∀x,y:{x:ℝ| x ∈ [a, b]} .  ((x = y) ⇒ ((f x) = (f y)))
6. ∀k:ℕ+. ∃d:{d:ℝ| r0 < d} . ∀x,y:{x:ℝ| x ∈ [a, b]} .  ((|x - y| ≤ d) ⇒ (|(f x) - f y| ≤ (r1/r(k))))@i
7. x : {x:ℝ| x ∈ [a, b]} @i
8. y : {x:ℝ| x ∈ [a, b]} @i
9. x = y@i
10. m : {m:ℕ+| icompact(i-approx([a, b];m))} @i
11. n : ℕ+@i
⊢ ∃d:{ℝ| ((r0 < d)
         ∧ (∀x,y:ℝ.
              ((x ∈ i-approx([a, b];m)) ⇒ (y ∈ i-approx([a, b];m)) ⇒ (|x - y| ≤ d) ⇒ (|(f x) - f y| ≤ (r1/r(n))))))}
BY
{ (Subst' i-approx([a, b];m) ~ [a, b] 0 THENA (RepUR ``i-approx`` 0 THEN Auto)) }

1
1. a : ℝ@i
2. b : ℝ@i
3. a < b
4. f : [a, b] ⟶ℝ@i
5. ∀k:ℕ+. ∃d:{d:ℝ| r0 < d} . ∀x,y:{x:ℝ| x ∈ [a, b]} .  ((|x - y| ≤ d) ⇒ (|(f x) - f y| ≤ (r1/r(k)))) 
   supposing ∀x,y:{x:ℝ| x ∈ [a, b]} .  ((x = y) ⇒ ((f x) = (f y)))
6. ∀k:ℕ+. ∃d:{d:ℝ| r0 < d} . ∀x,y:{x:ℝ| x ∈ [a, b]} .  ((|x - y| ≤ d) ⇒ (|(f x) - f y| ≤ (r1/r(k))))@i
7. x : {x:ℝ| x ∈ [a, b]} @i
8. y : {x:ℝ| x ∈ [a, b]} @i
9. x = y@i
10. m : {m:ℕ+| icompact(i-approx([a, b];m))} @i
11. n : ℕ+@i
⊢ ∃d:{ℝ| ((r0 < d) ∧ (∀x,y:ℝ.  ((x ∈ [a, b]) ⇒ (y ∈ [a, b]) ⇒ (|x - y| ≤ d) ⇒ (|(f x) - f y| ≤ (r1/r(n))))))}

---

Latex:

---

Latex:

1.  a  :  \mBbbR{}@i
2.  b  :  \mBbbR{}@i
3.  a  <  b
4.  f  :  [a,  b]  {}\mrightarrow{}\mBbbR{}@i
5.  \mforall{}k:\mBbbN{}\msupplus{}.  \mexists{}d:\{d:\mBbbR{}|  r0  <  d\}  .  \mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .    ((|x  -  y|  \mleq{}  d)  {}\mRightarrow{}  (|(f  x)  -  f  y|  \mleq{}  (r1/r(k)))\000C) 
      supposing  \mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .    ((x  =  y)  {}\mRightarrow{}  ((f  x)  =  (f  y)))
6.  \mforall{}k:\mBbbN{}\msupplus{}
          \mexists{}d:\{d:\mBbbR{}|  r0  <  d\}  .  \mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .    ((|x  -  y|  \mleq{}  d)  {}\mRightarrow{}  (|(f  x)  -  f  y|  \mleq{}  (r1/r(k))))@i
7.  x  :  \{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  @i
8.  y  :  \{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  @i
9.  x  =  y@i
10.  m  :  \{m:\mBbbN{}\msupplus{}|  icompact(i-approx([a,  b];m))\}  @i
11.  n  :  \mBbbN{}\msupplus{}@i
\mvdash{}  \mexists{}d:\{\mBbbR{}|  ((r0  <  d)
                  \mwedge{}  (\mforall{}x,y:\mBbbR{}.
                            ((x  \mmember{}  i-approx([a,  b];m))
                            {}\mRightarrow{}  (y  \mmember{}  i-approx([a,  b];m))
                            {}\mRightarrow{}  (|x  -  y|  \mleq{}  d)
                            {}\mRightarrow{}  (|(f  x)  -  f  y|  \mleq{}  (r1/r(n))))))\}


By

---

Latex:
(Subst'  i-approx([a,  b];m)  \msim{}  [a,  b]  0  THENA  (RepUR  ``i-approx``  0  THEN  Auto))

---

Home Index