author | wenzelm |
Sat, 03 Mar 2012 22:11:51 +0100 | |
changeset 46777 | 1ce61ee1571a |
parent 46776 | 8575cc482dfb |
child 46778 | 7cc567fd2789 |
--- a/src/Tools/IsaPlanner/isand.ML Sat Mar 03 21:52:15 2012 +0100 +++ b/src/Tools/IsaPlanner/isand.ML Sat Mar 03 22:11:51 2012 +0100 @@ -270,7 +270,7 @@ (* make free vars into schematic vars with index zero *) fun unfix_frees frees = - apply (map (K (Thm.forall_elim_var 0)) frees) + fold (K (Thm.forall_elim_var 0)) frees o Drule.forall_intr_list frees; (* fix term and type variables *)