# HG changeset patch
# User Cezary Kaliszyk <cezarykaliszyk@gmail.com>
# Date 1329488618 -3600
# Node ID 998978623654dad13cfb2342e1d26662df8193fa
# Parent  878de0084b6250de22315f0f0125660279a3dfe4
Update from Isabelle Wed Feb 15 23:19:30

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