src/HOL/NatDef.ML
changeset 2922 580647a879cf
parent 2891 d8f254ad1ab9
child 2935 998cb95fdd43
     1.1 --- a/src/HOL/NatDef.ML	Wed Apr 09 12:31:11 1997 +0200
     1.2 +++ b/src/HOL/NatDef.ML	Wed Apr 09 12:32:04 1997 +0200
     1.3 @@ -278,7 +278,7 @@
     1.4  qed "less_SucE";
     1.5  
     1.6  goal thy "(m < Suc(n)) = (m < n | m = n)";
     1.7 -by (fast_tac (!claset addEs  [less_trans, less_SucE]) 1);
     1.8 +by (fast_tac (!claset addEs [less_trans, less_SucE]) 1);
     1.9  qed "less_Suc_eq";
    1.10  
    1.11  val prems = goal thy "m<n ==> n ~= 0";