--- a/src/HOL/Integ/IntArith.thy Mon Oct 09 02:19:51 2006 +0200
+++ b/src/HOL/Integ/IntArith.thy Mon Oct 09 02:19:52 2006 +0200
@@ -408,8 +408,7 @@
lemmas int_code_rewrites =
arith_simps(5-27)
- arith_extra_simps(1-4) [where ?'a1 = int]
- arith_extra_simps(5) [where ?'a = int]
+ arith_extra_simps(1-5) [where 'a = int]
declare int_code_rewrites [code func]
--- a/src/HOL/Integ/Numeral.thy Mon Oct 09 02:19:51 2006 +0200
+++ b/src/HOL/Integ/Numeral.thy Mon Oct 09 02:19:52 2006 +0200
@@ -473,7 +473,7 @@
subsection {* Simplification of arithmetic operations on integer constants. *}
-lemmas arith_extra_simps =
+lemmas arith_extra_simps [standard] =
number_of_add [symmetric]
number_of_minus [symmetric] numeral_m1_eq_minus_1 [symmetric]
number_of_mult [symmetric]