--- a/src/HOL/Tools/real_arith.ML Fri May 08 13:38:21 2009 +0200
+++ b/src/HOL/Tools/real_arith.ML Sat May 09 09:17:29 2009 +0200
@@ -36,7 +36,7 @@
lessD = lessD, (*Can't change lessD: the reals are dense!*)
neqE = neqE,
simpset = simpset addsimps simps}) #>
- arith_inj_const (@{const_name real}, HOLogic.natT --> HOLogic.realT) #>
- arith_inj_const (@{const_name real}, HOLogic.intT --> HOLogic.realT)
+ Lin_Arith.add_inj_const (@{const_name real}, HOLogic.natT --> HOLogic.realT) #>
+ Lin_Arith.add_inj_const (@{const_name real}, HOLogic.intT --> HOLogic.realT)
end;