--- 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)

--- a/Nominal/nominal_inductive.ML	Fri Feb 17 02:05:00 2012 +0000
+++ b/Nominal/nominal_inductive.ML	Fri Feb 17 15:23:38 2012 +0100
@@ -20,9 +20,9 @@
 struct
 
 
-fun mk_cplus p q = Thm.capply (Thm.capply @{cterm "plus :: perm => perm => perm"} p) q 
+fun mk_cplus p q = Thm.apply (Thm.apply @{cterm "plus :: perm => perm => perm"} p) q 
 
-fun mk_cminus p = Thm.capply @{cterm "uminus :: perm => perm"} p 
+fun mk_cminus p = Thm.apply @{cterm "uminus :: perm => perm"} p 
 
 fun minus_permute_intro_tac p = 
   rtac (Drule.instantiate' [] [SOME (mk_cminus p)] @{thm permute_boolE})