| 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