# HG changeset patch # User blanchet # Date 1358155953 -3600 # Node ID e6317e8b11dbfccb5ec498e95b6b0263331e94b5 # Parent bfb626265782a3a57f722b3d578821cbb1074776 run Sledgehammer provers in parallel in "try" diff -r bfb626265782 -r e6317e8b11db src/HOL/Tools/Sledgehammer/sledgehammer_run.ML --- a/src/HOL/Tools/Sledgehammer/sledgehammer_run.ML Mon Jan 14 09:59:50 2013 +0100 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_run.ML Mon Jan 14 10:32:33 2013 +0100 @@ -209,7 +209,7 @@ mash_learn_proof ctxt params prover (prop_of goal) all_facts val launch = launch_prover params mode minimize_command only learn in - if mode = Auto_Try orelse mode = Try then + if mode = Auto_Try then (unknownN, state) |> fold (fn prover => fn accum as (outcome_code, _) => if outcome_code = someN then accum