1.1 --- a/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer_filter.ML Fri Jul 20 22:19:46 2012 +0200
1.2 +++ b/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer_filter.ML Fri Jul 20 22:19:46 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_MePo.iterative_relevant_facts ctxt params
1.8 + |> Sledgehammer_MePo.mepo_suggested_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)