--- a/Nominal/nominal_dt_alpha.ML	Fri Feb 17 02:05:00 2012 +0000
+++ b/Nominal/nominal_dt_alpha.ML	Fri Feb 17 15:23:38 2012 +0100
@@ -548,7 +548,7 @@
   Subgoal.FOCUS (fn {params, ...} => 
     let
       val (p, q) = pairself snd (last2 params)
-      val pq_inst = foldl1 (uncurry Thm.capply) [@{cterm "plus::perm => perm => perm"}, p, q]
+      val pq_inst = foldl1 (uncurry Thm.apply) [@{cterm "plus::perm => perm => perm"}, p, q]
       val exi_inst = Drule.instantiate' [SOME (@{ctyp "perm"})] [NONE, SOME pq_inst] @{thm exI}
     in
       HEADGOAL (rtac exi_inst)