---

Step * of Lemma rexp-small_wf

∀[x:{x:ℝ| |x| ≤ (r1/r(4))} ]. (rexp-small(x) ∈ {y:ℝ| y = e^x} )
BY
{ (Auto
   THEN Unfold `rexp-small` 0
   THEN (Subst' λN.rexp-approx(x;genfact-inv(N;3;m.4 * m);N) ~ λN.(TERMOF{rexp-approx-for-small-ext:o, \\v:l} N x) 0
         THENA (RW (AddrC [2;1] (TagC (mk_tag_term 2))) 0 THEN Reduce 0 THEN Auto)⋅
         )
   THEN BLemma `accelerate-rational-approx`
   THEN Auto
   THEN (GenConclTerm ⌜TERMOF{rexp-approx-for-small-ext:o, \\v:l}⌝⋅ THENA Auto)
   THEN (GenConcl ⌜(λN.(v N x)) = a ∈ (N:ℕ+ ⟶ {z:ℤ| |e^x - (r(z)/r(2 * N))| ≤ (r(2)/r(N))} )⌝⋅ THENA Auto)
   THEN GenConclTerm ⌜a n⌝⋅
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[x:\{x:\mBbbR{}|  |x|  \mleq{}  (r1/r(4))\}  ].  (rexp-small(x)  \mmember{}  \{y:\mBbbR{}|  y  =  e\^{}x\}  )


By

---

Latex:
(Auto
  THEN  Unfold  `rexp-small`  0
  THEN  (Subst'  \mlambda{}N.rexp-approx(x;genfact-inv(N;3;m.4  *  m);N)  \msim{}  \mlambda{}N.(TERMOF\{rexp-approx-for-small-ext:o,
                                                                                                                                                \mbackslash{}\mbackslash{}v:l\} 
                                                                                                                                  N 
                                                                                                                                  x)  0
              THENA  (RW  (AddrC  [2;1]  (TagC  (mk\_tag\_term  2)))  0  THEN  Reduce  0  THEN  Auto)\mcdot{}
              )
  THEN  BLemma  `accelerate-rational-approx`
  THEN  Auto
  THEN  (GenConclTerm  \mkleeneopen{}TERMOF\{rexp-approx-for-small-ext:o,  \mbackslash{}\mbackslash{}v:l\}\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  (GenConcl  \mkleeneopen{}(\mlambda{}N.(v  N  x))  =  a\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  GenConclTerm  \mkleeneopen{}a  n\mkleeneclose{}\mcdot{}
  THEN  Auto)

---

Home Index