src/HOL/Transcendental.thy
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)