# HG changeset patch
# User wenzelm
# Date 1330809111 -3600
# Node ID 1ce61ee1571a689794ffb58ec3811c35103e9a69
# Parent  8575cc482dfbf118b939649f13e11729f2392da1
tuned;

diff -r 8575cc482dfb -r 1ce61ee1571a 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 *)