Mercurial Mercurial > hg > nominal2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Nominal/nominal_inductive.ML
changeset 3123 998978623654
parent 3108 61db5ad429bb
child 3135 92b9b8d2888d 
--- 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})
nominal2