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