src/HOL/Hyperreal/HyperOrd.ML
changeset 11713 883d559b0b8c
parent 11701 3d51fbf81c17
child 12018 ec054019c910
--- a/src/HOL/Hyperreal/HyperOrd.ML	Mon Oct 08 14:30:28 2001 +0200
+++ b/src/HOL/Hyperreal/HyperOrd.ML	Mon Oct 08 15:23:20 2001 +0200
@@ -149,7 +149,7 @@
 by (Asm_full_simp_tac 1);
 qed "hypreal_mult_less_zero";
 
-Goalw [hypreal_one_def,hypreal_zero_def,hypreal_less_def] "0 < 1hr";
+Goalw [hypreal_one_def,hypreal_zero_def,hypreal_less_def] "0 < (1::hypreal)";
 by (res_inst_tac [("x","%n. Numeral0")] exI 1);
 by (res_inst_tac [("x","%n. Numeral1")] exI 1);
 by (auto_tac (claset(),