---

Step * 1 of Lemma remove-singularity


1. X : Type
2. d : metric(X)
3. k : ℕ
4. f : {p:ℝ^k| r0 < ||p||}  ⟶ X
5. z : X
6. ∃c:{c:ℝ| r0 ≤ c} . ∀m:ℕ+. ∀p:{p:ℝ^k| r0 < ||p||} .  ((||p|| ≤ (r(4)/r(m))) ⇒ (mdist(d;f p;z) ≤ (c/r(m))))
7. cau : ∀[p:ℝ^k]. mcauchy(d;n.remove-singularity-seq(k;p;f;z) n)
8. cmplt : mcomplete(X with d)
9. p : ℝ^k
10. req-vec(k;p;λi.r0)
⊢ lim n→∞.remove-singularity-seq(k;p;f;z) n = z
BY
{ (Assert ∀n:ℕ. ((remove-singularity-seq(k;p;f;z) n) = z ∈ X) BY
         (Auto
          THEN RepUR ``remove-singularity-seq`` 0
          THEN AutoSplit
          THEN (Assert r0 < ||p|| BY
                      (InstLemma `realvec-ibs-property` [⌜k⌝;⌜p⌝]⋅ THEN Auto))
          THEN (RWO "-4" (-1) THENA Auto)
          THEN RWO "real-vec-norm-0" (-1)
          THEN Auto)) }

1
1. X : Type
2. d : metric(X)
3. k : ℕ
4. f : {p:ℝ^k| r0 < ||p||}  ⟶ X
5. z : X
6. ∃c:{c:ℝ| r0 ≤ c} . ∀m:ℕ+. ∀p:{p:ℝ^k| r0 < ||p||} .  ((||p|| ≤ (r(4)/r(m))) ⇒ (mdist(d;f p;z) ≤ (c/r(m))))
7. cau : ∀[p:ℝ^k]. mcauchy(d;n.remove-singularity-seq(k;p;f;z) n)
8. cmplt : mcomplete(X with d)
9. p : ℝ^k
10. req-vec(k;p;λi.r0)
11. ∀n:ℕ. ((remove-singularity-seq(k;p;f;z) n) = z ∈ X)
⊢ lim n→∞.remove-singularity-seq(k;p;f;z) n = z

---

Latex:

---

Latex:

1.  X  :  Type
2.  d  :  metric(X)
3.  k  :  \mBbbN{}
4.  f  :  \{p:\mBbbR{}\^{}k|  r0  <  ||p||\}    {}\mrightarrow{}  X
5.  z  :  X
6.  \mexists{}c:\{c:\mBbbR{}|  r0  \mleq{}  c\} 
        \mforall{}m:\mBbbN{}\msupplus{}.  \mforall{}p:\{p:\mBbbR{}\^{}k|  r0  <  ||p||\}  .    ((||p||  \mleq{}  (r(4)/r(m)))  {}\mRightarrow{}  (mdist(d;f  p;z)  \mleq{}  (c/r(m))))
7.  cau  :  \mforall{}[p:\mBbbR{}\^{}k].  mcauchy(d;n.remove-singularity-seq(k;p;f;z)  n)
8.  cmplt  :  mcomplete(X  with  d)
9.  p  :  \mBbbR{}\^{}k
10.  req-vec(k;p;\mlambda{}i.r0)
\mvdash{}  lim  n\mrightarrow{}\minfty{}.remove-singularity-seq(k;p;f;z)  n  =  z


By

---

Latex:
(Assert  \mforall{}n:\mBbbN{}.  ((remove-singularity-seq(k;p;f;z)  n)  =  z)  BY
              (Auto
                THEN  RepUR  ``remove-singularity-seq``  0
                THEN  AutoSplit
                THEN  (Assert  r0  <  ||p||  BY
                                        (InstLemma  `realvec-ibs-property`  [\mkleeneopen{}k\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{}]\mcdot{}  THEN  Auto))
                THEN  (RWO  "-4"  (-1)  THENA  Auto)
                THEN  RWO  "real-vec-norm-0"  (-1)
                THEN  Auto))

---

Home Index