src/HOL/Tools/nat_simprocs.ML
changeset 30685 dd5fe091ff04
parent 30649 57753e0ec1d4
--- a/src/HOL/Tools/nat_simprocs.ML	Mon Mar 23 19:01:15 2009 +0100
+++ b/src/HOL/Tools/nat_simprocs.ML	Mon Mar 23 19:01:15 2009 +0100
@@ -565,7 +565,7 @@
 in
 
 val nat_simprocs_setup =
-  LinArith.map_data (fn {add_mono_thms, mult_mono_thms, inj_thms, lessD, neqE, simpset} =>
+  Lin_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, neqE = neqE,
     simpset = simpset addsimps add_rules