diff -r 878de0084b62 -r 998978623654 Nominal/nominal_inductive.ML
--- 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})