src/HOL/TPTP/mash_export.ML
changeset 48406 b002cc16aa99
parent 48404 0a261b4aa093
child 48438 3e45c98fe127
--- a/src/HOL/TPTP/mash_export.ML	Fri Jul 20 22:19:46 2012 +0200
+++ b/src/HOL/TPTP/mash_export.ML	Fri Jul 20 22:19:46 2012 +0200
@@ -179,7 +179,7 @@
             let
               val suggs =
                 old_facts
-                |> Sledgehammer_MePo.iterative_relevant_facts ctxt params prover
+                |> Sledgehammer_MePo.mepo_suggested_facts ctxt params prover
                        max_relevant NONE hyp_ts concl_t
                 |> map (fn ((name, _), _) => name ())
               val s = escape_meta name ^ ": " ^ escape_metas suggs ^ "\n"