minor tidying of simprocs

--- a/src/HOL/Real/real_arith.ML	Mon Jan 01 11:51:20 2001 +0100
+++ b/src/HOL/Real/real_arith.ML	Mon Jan 01 11:52:04 2001 +0100
@@ -12,7 +12,7 @@
 val simps = [True_implies_equals,inst "w" "number_of ?v" real_add_mult_distrib2,
              real_divide_1,real_times_divide1_eq,real_times_divide2_eq];
 
-val simprocs = [hd(rev real_cancel_numeral_factors)];
+val simprocs = [real_cancel_numeral_factors_divide];
 
 fun cvar(th,_ $ (_ $ _ $ var)) = cterm_of (#sign(rep_thm th)) var;
 

--- a/src/HOL/Real/real_arith0.ML	Mon Jan 01 11:51:20 2001 +0100
+++ b/src/HOL/Real/real_arith0.ML	Mon Jan 01 11:52:04 2001 +0100
@@ -24,7 +24,7 @@
          real_mult_minus_1, real_mult_minus_1_right];
 
 val simprocs = [Real_Times_Assoc.conv, Real_Numeral_Simprocs.combine_numerals]@
-               Real_Numeral_Simprocs.cancel_numerals(* @ real_cancel_numeral_factors*);
+               Real_Numeral_Simprocs.cancel_numerals;
 
 val mono_ss = simpset() addsimps
                 [real_add_le_mono,real_add_less_mono,