src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML
changeset 53517 1165e8960f59
parent 53500 53b9326196fe
child 53551 7b779c075de9
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML	Wed Sep 11 09:51:19 2013 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML	Wed Sep 11 09:51:30 2013 +0200
@@ -252,6 +252,9 @@
 fun is_appropriate_prop_of_prover ctxt name =
   if is_unit_equational_atp ctxt name then is_unit_equality else K true
 
+val atp_irrelevant_const_tab =
+  Symtab.make (map (rpair ()) atp_irrelevant_consts)
+
 fun is_built_in_const_of_prover ctxt name =
   if is_smt_prover ctxt name then
     let val ctxt = ctxt |> select_smt_solver name in
@@ -264,7 +267,7 @@
            (false, ts)
     end
   else
-    fn (s, _) => fn ts => (member (op =) atp_irrelevant_consts s, ts)
+    fn (s, _) => fn ts => (Symtab.defined atp_irrelevant_const_tab s, ts)
 
 (* FUDGE *)
 val atp_relevance_fudge =