--- a/src/HOL/Tools/Sledgehammer/sledgehammer_minimize.ML Mon Jan 10 15:30:17 2011 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_minimize.ML Mon Jan 10 15:45:46 2011 +0100
@@ -165,7 +165,7 @@
["Minimized: " ^ string_of_int n ^ " fact" ^ plural_s n] ^
(case length (filter (curry (op =) Chained o snd o fst) min_thms) of
0 => ""
- | n => " (including " ^ Int.toString n ^ " chained)") ^ ".")
+ | n => " (including " ^ string_of_int n ^ " chained)") ^ ".")
in (SOME min_thms, message) end
| {outcome = SOME TimedOut, ...} =>
(NONE, "Timeout: You can increase the time limit using the \"timeout\" \