fixed discrete field.

--- a/src/HOL/Hyperreal/hypreal_arith.ML	Tue Sep 07 11:42:50 2004 +0200
+++ b/src/HOL/Hyperreal/hypreal_arith.ML	Tue Sep 07 13:41:30 2004 +0200
@@ -35,7 +35,6 @@
     lessD = lessD,  (*Can't change LA_Data_Ref.lessD: the hypreals are dense!*)
     simpset = simpset}),
   arith_inj_const ("HyperDef.hypreal_of_real", HOLogic.realT --> hyprealT),
-  arith_discrete ("HyperDef.hypreal",false),
   Simplifier.change_simpset_of (op addsimprocs) [fast_hypreal_arith_simproc]];
 
 end;

--- a/src/HOL/Real/rat_arith.ML	Tue Sep 07 11:42:50 2004 +0200
+++ b/src/HOL/Real/rat_arith.ML	Tue Sep 07 13:41:30 2004 +0200
@@ -47,7 +47,6 @@
                       addsimprocs simprocs}),
   arith_inj_const("IntDef.of_nat", HOLogic.natT --> ratT),
   arith_inj_const("IntDef.of_int", HOLogic.intT --> ratT),
-  arith_discrete ("Rational.rat",false),
   Simplifier.change_simpset_of (op addsimprocs) [fast_rat_arith_simproc]];
 
 end;

--- a/src/HOL/Real/real_arith.ML	Tue Sep 07 11:42:50 2004 +0200
+++ b/src/HOL/Real/real_arith.ML	Tue Sep 07 13:41:30 2004 +0200
@@ -126,7 +126,6 @@
     simpset = simpset addsimps simps}),
   arith_inj_const ("RealDef.real", HOLogic.natT --> HOLogic.realT),
   arith_inj_const ("RealDef.real", HOLogic.intT --> HOLogic.realT),
-  arith_discrete ("RealDef.real",false),
   Simplifier.change_simpset_of (op addsimprocs) [fast_real_arith_simproc]];
 
 (* some thms for injection nat => real: