---

Step * 2 1 1 1 of Lemma arctan-poly-approx-1


1. ∀x:ℝ. (r0 < (r1 + x^2))
2. ∀x:ℝ. -(x^2) ≠ r1
3. x : {x:ℝ| r0 ≤ x} 
4. k : ℕ
5. r0_∫-x (r1/r1 + x^2) - Σ{-(x^2)^i | 0≤i≤k} dx = (arctangent(x) - r0_∫-x Σ{-(x^2)^i | 0≤i≤k} dx)
6. (arctangent(x) - arctan-poly(x;k)) = (arctangent(x) - r0_∫-x Σ{-(x^2)^i | 0≤i≤k} dx)
7. x1 : ℝ
8. rmin(r0;x) ≤ x1
9. x1 ≤ rmax(r0;x)
⊢ ((r1/r1 + x1^2) - Σ{-(x1^2)^i | 0≤i≤k}) = (-(x1^2)^k + 1/r1 + x1^2)
BY
{ ((Assert r1 - -(x1^2) ≠ r0 BY
          ((OrRight THEN Auto) THEN nRNorm 0 THEN Auto))
   THEN RWO "partial-geometric-series" 0
   THEN Auto
   THEN skip{Try (Complete (((OrRight THEN Auto) THEN nRNorm 0 THEN Auto)))}) }

---

Latex:

---

Latex:

1.  \mforall{}x:\mBbbR{}.  (r0  <  (r1  +  x\^{}2))
2.  \mforall{}x:\mBbbR{}.  -(x\^{}2)  \mneq{}  r1
3.  x  :  \{x:\mBbbR{}|  r0  \mleq{}  x\} 
4.  k  :  \mBbbN{}
5.  r0\_\mint{}\msupminus{}x  (r1/r1  +  x\^{}2)  -  \mSigma{}\{-(x\^{}2)\^{}i  |  0\mleq{}i\mleq{}k\}  dx  =  (arctangent(x)  -  r0\_\mint{}\msupminus{}x  \mSigma{}\{-(x\^{}2)\^{}i  |  0\mleq{}i\mleq{}k\}  dx)
6.  (arctangent(x)  -  arctan-poly(x;k))  =  (arctangent(x)  -  r0\_\mint{}\msupminus{}x  \mSigma{}\{-(x\^{}2)\^{}i  |  0\mleq{}i\mleq{}k\}  dx)
7.  x1  :  \mBbbR{}
8.  rmin(r0;x)  \mleq{}  x1
9.  x1  \mleq{}  rmax(r0;x)
\mvdash{}  ((r1/r1  +  x1\^{}2)  -  \mSigma{}\{-(x1\^{}2)\^{}i  |  0\mleq{}i\mleq{}k\})  =  (-(x1\^{}2)\^{}k  +  1/r1  +  x1\^{}2)


By

---

Latex:
((Assert  r1  -  -(x1\^{}2)  \mneq{}  r0  BY
                ((OrRight  THEN  Auto)  THEN  nRNorm  0  THEN  Auto))
  THEN  RWO  "partial-geometric-series"  0
  THEN  Auto
  THEN  skip\{Try  (Complete  (((OrRight  THEN  Auto)  THEN  nRNorm  0  THEN  Auto)))\})

---

Home Index