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