| changeset 59550 | ded0ff754037 |
| parent 59548 | d9304532c7ab |
| child 59551 | 5283e349b339 |
--- a/src/HOL/Semiring_Normalization.thy Sun Feb 15 17:01:22 2015 +0100 +++ b/src/HOL/Semiring_Normalization.thy Sun Feb 15 17:01:22 2015 +0100 @@ -113,7 +113,6 @@ "x * (y + z) = (x * y) + (x * z)" "x ^ (Suc q) = x * (x ^ q)" "x ^ (2*n) = (x ^ n) * (x ^ n)" - "x ^ (Suc (2*n)) = x * ((x ^ n) * (x ^ n))" by (simp_all add: algebra_simps power_add power2_eq_square power_mult_distrib power_mult del: one_add_one)