Step * of Lemma compact-metric-to-real-continuity

No Annotations
[X:Type]. ∀d:metric(X). ∀c:mcompact(X;d). ∀f:FUN(X ⟶ ℝ).  UC(f:X ⟶ ℝ)
BY
(Auto
   THEN 3
   THEN RenameVar `cmplt' 3
   THEN RenameVar `mtb' 4
   THEN (Assert ∀x,y:X.  (x ≡  ((f x) (f y))) BY
               (D -1
                THEN (Unhide THENA Auto)
                THEN RepUR ``is-mfun`` -1
                THEN RepeatFor (ParallelLast)
                THEN RWO "rmetric-meq" (-1)
                THEN Auto))
   THEN DVar `f'
   THEN Thin (-2)
   THEN RepUR ``m-unif-cont mdist rmetric`` 0
   THEN Fold `mdist` 0
   THEN Auto
   THEN (Assert ∀j:ℕ+
                  ∃n:ℕ
                   ∀p,q:mtb-cantor(mtb).
                     ((p q ∈ (i:ℕn ⟶ ℕ(fst(mtb)) i))
                      ((f mtb-cantor-map(d;cmplt;mtb;p) j) (f mtb-cantor-map(d;cmplt;mtb;q) j) ∈ ℤ)) BY
               ((D THENA Auto)
                THEN (InstLemma `general-cantor-to-int-uniform-continuity` [⌜fst(mtb)⌝]⋅ THENA Auto)
                THEN RepUR ``so_apply`` -1
                THEN Fold `mtb-cantor` (-1)
                THEN (D -1 With ⌜λp.(f mtb-cantor-map(d;cmplt;mtb;p) j)⌝  THENA Auto)
                THEN Reduce -1
                THEN Auto))
   THEN (D -1 With ⌜k⌝  THENA Auto)
   THEN -1) }

1
1. [X] Type
2. metric(X)
3. cmplt mcomplete(X with d)
4. mtb m-TB(X;d)
5. X ⟶ ℝ
6. ∀x,y:X.  (x ≡  ((f x) (f y)))
7. : ℕ+
8. : ℕ
9. ∀p,q:mtb-cantor(mtb).
     ((p q ∈ (i:ℕn ⟶ ℕ(fst(mtb)) i))
      ((f mtb-cantor-map(d;cmplt;mtb;p) (2 k)) (f mtb-cantor-map(d;cmplt;mtb;q) (2 k)) ∈ ℤ))
⊢ ∃delta:{d:ℝr0 < d} . ∀x,y:X.  ((mdist(d;x;y) ≤ delta)  (|(f x) y| ≤ (r1/r(k))))


Latex:


Latex:
No  Annotations
\mforall{}[X:Type].  \mforall{}d:metric(X).  \mforall{}c:mcompact(X;d).  \mforall{}f:FUN(X  {}\mrightarrow{}  \mBbbR{}).    UC(f:X  {}\mrightarrow{}  \mBbbR{})


By


Latex:
(Auto
  THEN  D  3
  THEN  RenameVar  `cmplt'  3
  THEN  RenameVar  `mtb'  4
  THEN  (Assert  \mforall{}x,y:X.    (x  \mequiv{}  y  {}\mRightarrow{}  ((f  x)  =  (f  y)))  BY
                          (D  -1
                            THEN  (Unhide  THENA  Auto)
                            THEN  RepUR  ``is-mfun``  -1
                            THEN  RepeatFor  3  (ParallelLast)
                            THEN  RWO  "rmetric-meq"  (-1)
                            THEN  Auto))
  THEN  DVar  `f'
  THEN  Thin  (-2)
  THEN  RepUR  ``m-unif-cont  mdist  rmetric``  0
  THEN  Fold  `mdist`  0
  THEN  Auto
  THEN  (Assert  \mforall{}j:\mBbbN{}\msupplus{}
                                \mexists{}n:\mBbbN{}
                                  \mforall{}p,q:mtb-cantor(mtb).
                                      ((p  =  q)
                                      {}\mRightarrow{}  ((f  mtb-cantor-map(d;cmplt;mtb;p)  j)
                                            =  (f  mtb-cantor-map(d;cmplt;mtb;q)  j)))  BY
                          ((D  0  THENA  Auto)
                            THEN  (InstLemma  `general-cantor-to-int-uniform-continuity`  [\mkleeneopen{}fst(mtb)\mkleeneclose{}]\mcdot{}  THENA  Auto)
                            THEN  RepUR  ``so\_apply``  -1
                            THEN  Fold  `mtb-cantor`  (-1)
                            THEN  (D  -1  With  \mkleeneopen{}\mlambda{}p.(f  mtb-cantor-map(d;cmplt;mtb;p)  j)\mkleeneclose{}    THENA  Auto)
                            THEN  Reduce  -1
                            THEN  Auto))
  THEN  (D  -1  With  \mkleeneopen{}2  *  k\mkleeneclose{}    THENA  Auto)
  THEN  D  -1)




Home Index