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