---

Step * 1 of Lemma cosine-poly-approx


1. x : {x:ℝ| |x| ≤ (r1/r(2))} 
2. k : ℕ
3. N : ℕ+
4. |Σ{-1^i * (x^2 * i)/(2 * i)! | 0≤i≤k} - (r(cosine-approx(x;k;N))/r(2 * N))| ≤ (r1/r(N))
⊢ (|cosine(x) - Σ{-1^i * (x^2 * i)/(2 * i)! | 0≤i≤k}| + (r1/r(N))) ≤ ((|x|^(2 * k) + 2/r(((2 * k) + 2)!)) + (r1/r(N)))
BY
{ ((InstLemma `cosine-poly-approx-1` [⌜|x|⌝;⌜k⌝]⋅ THENA Auto)
   THEN (Assert ⌜(cosine(x) - Σ{-1^i * (x^2 * i)/(2 * i)! | 0≤i≤k})
                 = (cosine(|x|) - Σ{-1^i * (|x|^2 * i)/(2 * i)! | 0≤i≤k})⌝⋅
        THENM ((RWO "-1" 0 THENA Auto) THEN RWO  "-2" 0 THEN Auto)
        )
   ) }

1
.....assertion..... 
1. x : {x:ℝ| |x| ≤ (r1/r(2))} 
2. k : ℕ
3. N : ℕ+
4. |Σ{-1^i * (x^2 * i)/(2 * i)! | 0≤i≤k} - (r(cosine-approx(x;k;N))/r(2 * N))| ≤ (r1/r(N))
5. |cosine(|x|) - Σ{-1^i * (|x|^2 * i)/(2 * i)! | 0≤i≤k}| ≤ (|x|^(2 * k) + 2/r(((2 * k) + 2)!))
⊢ (cosine(x) - Σ{-1^i * (x^2 * i)/(2 * i)! | 0≤i≤k}) = (cosine(|x|) - Σ{-1^i * (|x|^2 * i)/(2 * i)! | 0≤i≤k})

---

Latex:

---

Latex:

1.  x  :  \{x:\mBbbR{}|  |x|  \mleq{}  (r1/r(2))\} 
2.  k  :  \mBbbN{}
3.  N  :  \mBbbN{}\msupplus{}
4.  |\mSigma{}\{-1\^{}i  *  (x\^{}2  *  i)/(2  *  i)!  |  0\mleq{}i\mleq{}k\}  -  (r(cosine-approx(x;k;N))/r(2  *  N))|  \mleq{}  (r1/r(N))
\mvdash{}  (|cosine(x)  -  \mSigma{}\{-1\^{}i  *  (x\^{}2  *  i)/(2  *  i)!  |  0\mleq{}i\mleq{}k\}|  +  (r1/r(N)))  \mleq{}  ((|x|\^{}(2  *  k)  +  2/r(((2  *  k)
+  2)!))
+  (r1/r(N)))


By

---

Latex:
((InstLemma  `cosine-poly-approx-1`  [\mkleeneopen{}|x|\mkleeneclose{};\mkleeneopen{}k\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  (Assert  \mkleeneopen{}(cosine(x)  -  \mSigma{}\{-1\^{}i  *  (x\^{}2  *  i)/(2  *  i)!  |  0\mleq{}i\mleq{}k\})
                              =  (cosine(|x|)  -  \mSigma{}\{-1\^{}i  *  (|x|\^{}2  *  i)/(2  *  i)!  |  0\mleq{}i\mleq{}k\})\mkleeneclose{}\mcdot{}
            THENM  ((RWO  "-1"  0  THENA  Auto)  THEN  RWO    "-2"  0  THEN  Auto)
            )
  )

---

Home Index