src/HOL/ex/reflection.ML
changeset 29273 285c00993bc2
parent 29269 5c25a2012975
--- a/src/HOL/ex/reflection.ML	Wed Dec 31 18:53:17 2008 +0100
+++ b/src/HOL/ex/reflection.ML	Wed Dec 31 18:53:18 2008 +0100
@@ -40,7 +40,7 @@
        if exists (fn f => Term.could_unify (t |> strip_comb |> fst, f)) fs then insert (op aconv) t
        else add_fterms t1 #> add_fterms t2
      | add_fterms (t as Abs(xn,xT,t')) = 
-       if (fN mem (term_consts t)) then (fn _ => [t]) else (fn _ => [])
+       if exists_Const (fn (c, _) => c = fN) t then (fn _ => [t]) else (fn _ => [])
      | add_fterms _ = I
    val fterms = add_fterms rhs []
    val (xs, ctxt'') = Variable.variant_fixes (replicate (length fterms) "x") ctxt'