renamed real_of_int_eq_iff to real_of_int_inject;

--- a/src/HOL/Real/RealBin.ML	Thu Sep 27 18:44:30 2001 +0200
+++ b/src/HOL/Real/RealBin.ML	Thu Sep 27 18:45:23 2001 +0200
@@ -82,7 +82,7 @@
 \     iszero (number_of (bin_add v (bin_minus v')))";
 by (simp_tac
     (HOL_ss addsimps [real_number_of_def, 
-	              real_of_int_eq_iff, eq_number_of_eq]) 1);
+	              real_of_int_inject, eq_number_of_eq]) 1);
 qed "eq_real_number_of";
 
 Addsimps [eq_real_number_of];

--- a/src/HOL/Real/RealInt.ML	Thu Sep 27 18:44:30 2001 +0200
+++ b/src/HOL/Real/RealInt.ML	Thu Sep 27 18:45:23 2001 +0200
@@ -114,8 +114,8 @@
 
 Goal "(real (x::int) = real y) = (x = y)";
 by (blast_tac (claset() addSDs [inj_real_of_int RS injD]) 1);
-qed "real_of_int_eq_iff";
-AddIffs [real_of_int_eq_iff];
+qed "real_of_int_inject";
+AddIffs [real_of_int_inject];
 
 Goal "x < y ==> (real (x::int) < real y)";
 by (full_simp_tac (simpset() addsimps [linorder_not_le RS sym]) 1);