Mercurial Mercurial > hg > nominal2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mem => member
authorCezary Kaliszyk <kaliszyk@in.tum.de>
Thu, 06 May 2010 14:10:26 +0200
changeset 2071 843e0a2d44d7
parent 2070 ff69913e2608
child 2072 db218886e674
mem => member
Nominal/NewFv.thy file | annotate | diff | comparison | revisions 
--- a/Nominal/NewFv.thy	Thu May 06 14:09:56 2010 +0200
+++ b/Nominal/NewFv.thy	Thu May 06 14:10:26 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