--- a/src/HOL/Integ/nat_simprocs.ML Tue May 03 15:37:41 2005 +0200
+++ b/src/HOL/Integ/nat_simprocs.ML Wed May 04 08:36:10 2005 +0200
@@ -544,9 +544,9 @@
in
val nat_simprocs_setup =
- [Fast_Arith.map_data (fn {add_mono_thms, mult_mono_thms, inj_thms, lessD, simpset} =>
+ [Fast_Arith.map_data (fn {add_mono_thms, mult_mono_thms, inj_thms, lessD, neqE, simpset} =>
{add_mono_thms = add_mono_thms, mult_mono_thms = mult_mono_thms,
- inj_thms = inj_thms, lessD = lessD,
+ inj_thms = inj_thms, lessD = lessD, neqE = neqE,
simpset = simpset addsimps add_rules
addsimprocs simprocs})];