src/HOL/Multivariate_Analysis/Complex_Transcendental.thy
changeset 61518 ff12606337e9
parent 61426 d53db136e8fd
child 61524 f2e51e704a96
equal deleted inserted replaced
61515:c64628dbac00 61518:ff12606337e9
   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