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/Equivp.thy
changeset 2008 1bddffddc03f
parent 1898 f8c8e2afcc18
child 2019 0a04acc91ca1 
--- a/Nominal/Equivp.thy	Sat May 01 09:15:46 2010 +0100
+++ b/Nominal/Equivp.thy	Sun May 02 14:06:26 2010 +0100
@@ -1,5 +1,5 @@
 theory Equivp
-imports "Fv"
+imports "NewFv" "Tacs" "Rsp" "NewFv"
 begin
 
 ML {*
@@ -188,7 +188,7 @@
   val rhs = list_comb (cnstr, frees)
 
   fun mk_supp_arg (x, ty) =
-    if is_atom thy ty then mk_supp @{typ atom} (mk_atom ty $ x) else
+    if is_atom thy ty then mk_supp @{typ atom} (mk_atom_ty ty x) else
     if is_atom_set thy ty then mk_supp @{typ "atom set"} (mk_atom_set x) else
     if is_atom_fset thy ty then mk_supp @{typ "atom set"} (mk_atom_fset x)
     else mk_supp ty x
nominal2