equal
deleted
inserted
replaced
462 |
462 |
463 lemma Taylor_exp: |
463 lemma Taylor_exp: |
464 "norm(exp z - (\<Sum>k\<le>n. z ^ k / (fact k))) \<le> exp\<bar>Re z\<bar> * (norm z) ^ (Suc n) / (fact n)" |
464 "norm(exp z - (\<Sum>k\<le>n. z ^ k / (fact k))) \<le> exp\<bar>Re z\<bar> * (norm z) ^ (Suc n) / (fact n)" |
465 proof (rule complex_taylor [of _ n "\<lambda>k. exp" "exp\<bar>Re z\<bar>" 0 z, simplified]) |
465 proof (rule complex_taylor [of _ n "\<lambda>k. exp" "exp\<bar>Re z\<bar>" 0 z, simplified]) |
466 show "convex (closed_segment 0 z)" |
466 show "convex (closed_segment 0 z)" |
467 by (rule convex_segment [of 0 z]) |
467 by (rule convex_closed_segment [of 0 z]) |
468 next |
468 next |
469 fix k x |
469 fix k x |
470 assume "x \<in> closed_segment 0 z" "k \<le> n" |
470 assume "x \<in> closed_segment 0 z" "k \<le> n" |
471 show "(exp has_field_derivative exp x) (at x within closed_segment 0 z)" |
471 show "(exp has_field_derivative exp x) (at x within closed_segment 0 z)" |
472 using DERIV_exp DERIV_subset by blast |
472 using DERIV_exp DERIV_subset by blast |