src/HOL/Decision_Procs/cooper_tac.ML
changeset 57514 bdc2c6b40bf2
parent 56245 84fc7dfa3cd4
child 58963 26bf09b95dda
--- a/src/HOL/Decision_Procs/cooper_tac.ML	Sat Jul 05 10:09:01 2014 +0200
+++ b/src/HOL/Decision_Procs/cooper_tac.ML	Sat Jul 05 11:01:53 2014 +0200
@@ -53,7 +53,7 @@
           div_by_0 mod_by_0 div_0 mod_0
           div_by_1 mod_by_1 div_1 mod_1
           Suc_eq_plus1}
-      addsimps @{thms add_ac}
+      addsimps @{thms ac_simps}
       addsimprocs [@{simproc cancel_div_mod_nat}, @{simproc cancel_div_mod_int}]
     val simpset0 =
       put_simpset HOL_basic_ss ctxt