src/HOL/Library/Formal_Power_Series.thy
changeset 62481 b5d8e57826df
parent 62422 4aa35fd6c152
child 63040 eb4ddd18d635
--- a/src/HOL/Library/Formal_Power_Series.thy	Tue Mar 01 10:32:55 2016 +0100
+++ b/src/HOL/Library/Formal_Power_Series.thy	Tue Mar 01 10:36:19 2016 +0100
@@ -2305,7 +2305,7 @@
   have "(a ^m)$0 = setprod (\<lambda>i. a$0) {0..n}"
     by (simp add: Suc fps_power_nth del: replicate.simps power_Suc)
   also have "\<dots> = (a$0) ^ m"
-   unfolding c by (rule setprod_constant) simp
+   unfolding c by (rule setprod_constant)
  finally show ?thesis .
 qed