src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML
changeset 54115 2b7e063c7abc
parent 54100 6fefbaeccb63
child 54123 271a8377656f
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML	Tue Oct 15 15:31:32 2013 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML	Tue Oct 15 16:14:52 2013 +0200
@@ -1216,6 +1216,7 @@
     val facts =
       nearly_all_facts ctxt false fact_override Symtab.empty css chained []
                        @{prop True}
+      |> sort (crude_thm_ord o pairself snd o swap)
       |> (case max_facts of NONE => I | SOME n => take n)
     val num_facts = length facts
     val prover = hd provers