1.1 --- a/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer_filter.ML	Fri Jul 20 22:19:45 2012 +0200
     1.2 +++ b/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer_filter.ML	Fri Jul 20 22:19:45 2012 +0200
     1.3 @@ -133,7 +133,7 @@
     1.4                 Sledgehammer_Fact.no_fact_override reserved css_table chained_ths
     1.5                 hyp_ts concl_t
     1.6             |> filter (is_appropriate_prop o prop_of o snd)
     1.7 -           |> Sledgehammer_Filter_Iter.iterative_relevant_facts ctxt params
     1.8 +           |> Sledgehammer_MePo.iterative_relevant_facts ctxt params
     1.9                    default_prover (the_default default_max_facts max_facts)
    1.10                    (SOME relevance_fudge) hyp_ts concl_t
    1.11              |> map ((fn name => name ()) o fst o fst)