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/NewFv.thy
changeset 2075 c1edd05f207f
parent 2071 843e0a2d44d7
child 2131 f7ec6f7b152e 
--- a/Nominal/NewFv.thy	Thu May 06 14:13:35 2010 +0200
+++ b/Nominal/NewFv.thy	Thu May 06 14:13:45 2010 +0200
@@ -140,7 +140,7 @@
   val non_rec_vars =
     case binds of
       [(SOME bn, i)] =>
-        if i mem bodys
+        if member (op =) bodys i
         then noatoms
         else ((the (AList.lookup (op=) bn_fvbn bn)) $ nth args i)
     | _ => noatoms
nominal2