author | blanchet |
Mon, 14 Jan 2013 10:32:33 +0100 | |
changeset 50876 | e6317e8b11db |
parent 50875 | bfb626265782 |
child 50877 | a2a1a5907f7b |
child 50885 | f3588e59aeaa |
--- 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