src/HOL/Tools/Sledgehammer/sledgehammer_run.ML
changeset 43051 d7075adac3bd
parent 43043 1406f6fc5dc3
child 43052 8d6a4978cc65
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_run.ML	Mon May 30 17:00:38 2011 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_run.ML	Mon May 30 17:00:38 2011 +0200
@@ -128,7 +128,7 @@
        smt_filter = smt_filter}
     fun really_go () =
       problem
-      |> get_minimizing_prover ctxt mode name params (minimize_command name)
+      |> get_minimizing_prover ctxt mode name params minimize_command
       |> (fn {outcome, message, ...} =>
              (if outcome = SOME ATP_Proof.TimedOut then timeoutN
               else if is_some outcome then noneN