---

Step * 2 1 1 1 of Lemma real-cube-uniform-continuity


1. k : ℕ
2. n : ℤ
3. [%1] : 0 < 1
4. ∀a,b:ℕ1 - 1 ⟶ ℝ.
     ((∀i:ℕ1 - 1. ((a i) < (b i)))
     ⇒ (∀f:{f:real-cube(1 - 1;a;b) ⟶ ℝ^k| ∀x,y:real-cube(1 - 1;a;b).  (req-vec(1 - 1;x;y) ⇒ req-vec(k;f x;f y))} .
         ∀e:{e:ℝ| r0 < e} .
           ∃d:ℕ+. ∀x,y:real-cube(1 - 1;a;b).  ((d(x;y) ≤ (r1/r(d))) ⇒ (d(f x;f y) ≤ e))))
5. a : ℕ1 ⟶ ℝ
6. b : ℕ1 ⟶ ℝ
7. ∀i:ℕ1. ((a i) < (b i))
8. f : {f:real-cube(1;a;b) ⟶ ℝ^k| ∀x,y:real-cube(1;a;b).  (req-vec(1;x;y) ⇒ req-vec(k;f x;f y))} 
9. e : {e:ℝ| r0 < e} 
10. n = 1 ∈ ℤ
11. ∀x:{x:ℝ| x ∈ [a 0, b 0]} . (λu.x ∈ real-cube(1;a;b))
12. ∀f:[a 0, b 0] ⟶ℝ. (real-fun(f;a 0;b 0) ⇐⇒ real-cont(f;a 0;b 0))
13. ∀i:ℕk. real-cont(λt.(f (λu.t) i);a 0;b 0)
⊢ ∃d:ℕ+. ∀x,y:real-cube(1;a;b).  ((d(x;y) ≤ (r1/r(d))) ⇒ (d(f x;f y) ≤ e))
BY
{ ((Assert ∀i:ℕk
             ∃d:{d:ℝ| r0 < d} 
              ∀x,y:{t:ℝ| t ∈ [a 0, b 0]} .  ((|x - y| ≤ d) ⇒ (|(f (λu.x) i) - f (λu.y) i| ≤ (e/r(k)))) BY
          (ParallelLast
           THEN (InstLemma `small-reciprocal-real` [⌜(e/r(k))⌝]⋅
                 THENA (DSetVars THEN MemTypeCD THEN Auto THEN nRMul ⌜r(k)⌝ 0⋅ THEN Auto)
                 )
           THEN D -1
           THEN RenameVar `N' (-2)
           THEN (D -3 With ⌜N⌝  THENA Auto)
           THEN Reduce -1
           THEN RepeatFor 4 ((ParallelLast THENA Auto))
           THEN Auto))
   THEN (Skolemize (-1) `d' THENA Auto)
   ) }

1
1. k : ℕ
2. n : ℤ
3. [%1] : 0 < 1
4. ∀a,b:ℕ1 - 1 ⟶ ℝ.
     ((∀i:ℕ1 - 1. ((a i) < (b i)))
     ⇒ (∀f:{f:real-cube(1 - 1;a;b) ⟶ ℝ^k| ∀x,y:real-cube(1 - 1;a;b).  (req-vec(1 - 1;x;y) ⇒ req-vec(k;f x;f y))} .
         ∀e:{e:ℝ| r0 < e} .
           ∃d:ℕ+. ∀x,y:real-cube(1 - 1;a;b).  ((d(x;y) ≤ (r1/r(d))) ⇒ (d(f x;f y) ≤ e))))
5. a : ℕ1 ⟶ ℝ
6. b : ℕ1 ⟶ ℝ
7. ∀i:ℕ1. ((a i) < (b i))
8. f : {f:real-cube(1;a;b) ⟶ ℝ^k| ∀x,y:real-cube(1;a;b).  (req-vec(1;x;y) ⇒ req-vec(k;f x;f y))} 
9. e : {e:ℝ| r0 < e} 
10. n = 1 ∈ ℤ
11. ∀x:{x:ℝ| x ∈ [a 0, b 0]} . (λu.x ∈ real-cube(1;a;b))
12. ∀f:[a 0, b 0] ⟶ℝ. (real-fun(f;a 0;b 0) ⇐⇒ real-cont(f;a 0;b 0))
13. ∀i:ℕk. real-cont(λt.(f (λu.t) i);a 0;b 0)
14. ∀i:ℕk. ∃d:{d:ℝ| r0 < d} . ∀x,y:{t:ℝ| t ∈ [a 0, b 0]} .  ((|x - y| ≤ d) ⇒ (|(f (λu.x) i) - f (λu.y) i| ≤ (e/r(k))))
15. d : i:ℕk ⟶ {d:ℝ| r0 < d} 
16. ∀i:ℕk. ∀x,y:{t:ℝ| t ∈ [a 0, b 0]} .  ((|x - y| ≤ (d i)) ⇒ (|(f (λu.x) i) - f (λu.y) i| ≤ (e/r(k))))
⊢ ∃d:ℕ+. ∀x,y:real-cube(1;a;b).  ((d(x;y) ≤ (r1/r(d))) ⇒ (d(f x;f y) ≤ e))

---

Latex:

---

Latex:

1.  k  :  \mBbbN{}
2.  n  :  \mBbbZ{}
3.  [\%1]  :  0  <  1
4.  \mforall{}a,b:\mBbbN{}1  -  1  {}\mrightarrow{}  \mBbbR{}.
          ((\mforall{}i:\mBbbN{}1  -  1.  ((a  i)  <  (b  i)))
          {}\mRightarrow{}  (\mforall{}f:\{f:real-cube(1  -  1;a;b)  {}\mrightarrow{}  \mBbbR{}\^{}k| 
                          \mforall{}x,y:real-cube(1  -  1;a;b).    (req-vec(1  -  1;x;y)  {}\mRightarrow{}  req-vec(k;f  x;f  y))\}  .  \mforall{}e:\{e:\mBbbR{}| 
                                                                                                                                                                                    r0  <  e\}  .
                      \mexists{}d:\mBbbN{}\msupplus{}.  \mforall{}x,y:real-cube(1  -  1;a;b).    ((d(x;y)  \mleq{}  (r1/r(d)))  {}\mRightarrow{}  (d(f  x;f  y)  \mleq{}  e))))
5.  a  :  \mBbbN{}1  {}\mrightarrow{}  \mBbbR{}
6.  b  :  \mBbbN{}1  {}\mrightarrow{}  \mBbbR{}
7.  \mforall{}i:\mBbbN{}1.  ((a  i)  <  (b  i))
8.  f  :  \{f:real-cube(1;a;b)  {}\mrightarrow{}  \mBbbR{}\^{}k|  \mforall{}x,y:real-cube(1;a;b).    (req-vec(1;x;y)  {}\mRightarrow{}  req-vec(k;f  x;f  y))\} 
9.  e  :  \{e:\mBbbR{}|  r0  <  e\} 
10.  n  =  1
11.  \mforall{}x:\{x:\mBbbR{}|  x  \mmember{}  [a  0,  b  0]\}  .  (\mlambda{}u.x  \mmember{}  real-cube(1;a;b))
12.  \mforall{}f:[a  0,  b  0]  {}\mrightarrow{}\mBbbR{}.  (real-fun(f;a  0;b  0)  \mLeftarrow{}{}\mRightarrow{}  real-cont(f;a  0;b  0))
13.  \mforall{}i:\mBbbN{}k.  real-cont(\mlambda{}t.(f  (\mlambda{}u.t)  i);a  0;b  0)
\mvdash{}  \mexists{}d:\mBbbN{}\msupplus{}.  \mforall{}x,y:real-cube(1;a;b).    ((d(x;y)  \mleq{}  (r1/r(d)))  {}\mRightarrow{}  (d(f  x;f  y)  \mleq{}  e))


By

---

Latex:
((Assert  \mforall{}i:\mBbbN{}k
                      \mexists{}d:\{d:\mBbbR{}|  r0  <  d\} 
                        \mforall{}x,y:\{t:\mBbbR{}|  t  \mmember{}  [a  0,  b  0]\}  .
                            ((|x  -  y|  \mleq{}  d)  {}\mRightarrow{}  (|(f  (\mlambda{}u.x)  i)  -  f  (\mlambda{}u.y)  i|  \mleq{}  (e/r(k))))  BY
                (ParallelLast
                  THEN  (InstLemma  `small-reciprocal-real`  [\mkleeneopen{}(e/r(k))\mkleeneclose{}]\mcdot{}
                              THENA  (DSetVars  THEN  MemTypeCD  THEN  Auto  THEN  nRMul  \mkleeneopen{}r(k)\mkleeneclose{}  0\mcdot{}  THEN  Auto)
                              )
                  THEN  D  -1
                  THEN  RenameVar  `N'  (-2)
                  THEN  (D  -3  With  \mkleeneopen{}N\mkleeneclose{}    THENA  Auto)
                  THEN  Reduce  -1
                  THEN  RepeatFor  4  ((ParallelLast  THENA  Auto))
                  THEN  Auto))
  THEN  (Skolemize  (-1)  `d'  THENA  Auto)
  )

---

Home Index