| changeset 58740 | cb9d84d3e7f2 |
| parent 58729 | e8ecc79aee43 |
| child 58834 | 773b378d9313 |
--- a/src/HOL/Transcendental.thy Tue Oct 21 17:23:16 2014 +0200 +++ b/src/HOL/Transcendental.thy Tue Oct 21 21:10:44 2014 +0200 @@ -3598,7 +3598,7 @@ qed lemma cos_2npi [simp]: "cos (2 * real (n::nat) * pi) = 1" - by (simp add: cos_double mult.assoc power_add [symmetric] numeral_2_eq_2) + by (cases "even n") (simp_all add: cos_double mult.assoc) lemma cos_3over2_pi [simp]: "cos (3 / 2 * pi) = 0" apply (subgoal_tac "cos (pi + pi/2) = 0", simp)