| changeset 56261 | 918432e3fcfa |
| parent 56217 | dc429a5b13c4 |
| child 56371 | fb9ae0727548 |
--- a/src/HOL/Transcendental.thy Sun Mar 23 16:40:35 2014 +0100 +++ b/src/HOL/Transcendental.thy Mon Mar 24 14:22:29 2014 +0000 @@ -3745,7 +3745,7 @@ have "DERIV (\<lambda> x. suminf (?c x)) x :> (inverse (1 + x\<^sup>2))" unfolding suminf_c'_eq_geom by (rule DERIV_arctan_suminf[OF `0 < r` `r < 1` `\<bar>x\<bar> < r`]) - from DERIV_add_minus[OF this DERIV_arctan] + from DERIV_diff [OF this DERIV_arctan] show "DERIV (\<lambda> x. suminf (?c x) - arctan x) x :> 0" by auto qed