src/FOL/simpdata.ML
changeset 12725 7ede865e1fe5
parent 12720 f8a134b9a57f
child 12765 fb3f9887d0b7
     1.1 --- a/src/FOL/simpdata.ML	Fri Jan 11 18:49:25 2002 +0100
     1.2 +++ b/src/FOL/simpdata.ML	Sat Jan 12 16:37:58 2002 +0100
     1.3 @@ -121,7 +121,7 @@
     1.4           | _ => [th])
     1.5    in atoms end;
     1.6  
     1.7 -fun mksimps pairs = (map mk_eq o mk_atomize pairs o forall_elim_vars_safe);
     1.8 +fun mksimps pairs = (map mk_eq o mk_atomize pairs o gen_all);
     1.9  
    1.10  (*** Classical laws ***)
    1.11