Mercurial Mercurial > repos > isabelle / 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.
src/HOL/Tools/inductive_set.ML
changeset 36692 54b64d4ad524
parent 35757 c2884bec5463
child 36945 9bec62c10714 
--- a/src/HOL/Tools/inductive_set.ML	Wed May 05 09:24:42 2010 +0200
+++ b/src/HOL/Tools/inductive_set.ML	Wed May 05 18:25:34 2010 +0200
@@ -419,7 +419,7 @@
       | infer (t $ u) = infer t #> infer u
       | infer _ = I;
     val new_arities = filter_out
-      (fn (x as Free (_, T), _) => x mem params andalso length (binder_types T) > 1
+      (fn (x as Free (_, T), _) => member (op =) params x andalso length (binder_types T) > 1
         | _ => false) (fold (snd #> infer) intros []);
     val params' = map (fn x =>
       (case AList.lookup op = new_arities x of
isabelle