--- a/src/HOL/Tools/Sledgehammer/sledgehammer_prover_minimize.ML Mon Aug 04 11:54:23 2014 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_prover_minimize.ML Mon Aug 04 12:28:42 2014 +0200
@@ -73,7 +73,7 @@
fun n_facts names =
let val n = length names in
string_of_int n ^ " fact" ^ plural_s n ^
- (if n > 0 then ": " ^ (names |> map fst |> sort string_ord |> space_implode " ") else "")
+ (if n > 0 then ": " ^ (names |> map fst |> space_implode " ") else "")
end
fun print silent f = if silent then () else Output.urgent_message (f ())