diff -r d1b8c98e4f81 -r f8f37a9a31dc src/FOL/simpdata.ML --- a/src/FOL/simpdata.ML Mon Oct 11 14:03:40 1993 +0100 +++ b/src/FOL/simpdata.ML Tue Oct 12 13:39:35 1993 +0100 @@ -74,7 +74,9 @@ | _ $ (Const("False",_)) => [] | _ => [th]; -fun mk_rew_rules th = map mk_meta_eq (atomize th); +fun gen_all th = forall_elim_vars (#maxidx(rep_thm th)+1) th; + +fun mk_rew_rules th = map mk_meta_eq (atomize(gen_all th)); structure Induction = InductionFun(struct val spec=IFOL.spec end);