# HG changeset patch
# User blanchet
# Date 1381846492 -7200
# Node ID 2b7e063c7abca4f9e9cd9905975c81d8cae252f8
# Parent  84791e3fdcdeedca7f08eef1b7d0d9cca9a08448
improved duplicate detection in "build_name_tables" by ensuring that the earliest occurrence of a duplicate (if it exists) gets picked as the canonical instance

diff -r 84791e3fdcde -r 2b7e063c7abc src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML
--- 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