Addition of le_refl to default simpset/claset
authorpaulson
Mon, 23 Sep 1996 18:12:45 +0200
changeset 2009 9023e474d22a
parent 2008 cd81b719142d
child 2010 0a22b9d63a18
Addition of le_refl to default simpset/claset
src/HOL/Nat.ML
--- a/src/HOL/Nat.ML	Mon Sep 23 18:10:48 1996 +0200
+++ b/src/HOL/Nat.ML	Mon Sep 23 18:12:45 1996 +0200
@@ -517,7 +517,7 @@
 by (simp_tac (!simpset addsimps [le_eq_less_or_eq]) 1);
 qed "Suc_le_mono";
 
-Addsimps [le_refl,Suc_le_mono];
+AddIffs [le_refl,Suc_le_mono];
 
 
 (** LEAST -- the least number operator **)