
diff -r 1c866b53eb3c -r c1edd05f207f Nominal/NewFv.thy
--- 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




