diff -r 7682bc885e8a -r b002cc16aa99 src/HOL/Mirabelle/Tools/mirabelle_sledgehammer_filter.ML --- a/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer_filter.ML Fri Jul 20 22:19:46 2012 +0200 +++ b/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer_filter.ML Fri Jul 20 22:19:46 2012 +0200 @@ -133,7 +133,7 @@ Sledgehammer_Fact.no_fact_override reserved css_table chained_ths hyp_ts concl_t |> filter (is_appropriate_prop o prop_of o snd) - |> Sledgehammer_MePo.iterative_relevant_facts ctxt params + |> Sledgehammer_MePo.mepo_suggested_facts ctxt params default_prover (the_default default_max_facts max_facts) (SOME relevance_fudge) hyp_ts concl_t |> map ((fn name => name ()) o fst o fst)