tuned;
authorwenzelm
Sat, 03 Mar 2012 22:11:51 +0100
changeset 46777 1ce61ee1571a
parent 46776 8575cc482dfb
child 46778 7cc567fd2789
tuned;
src/Tools/IsaPlanner/isand.ML
--- 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 *)