changeset 40060 | 5ef6747aa619 |
parent 40059 | 6ad9081665db |
child 40061 | 71cc5aac8b76 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_minimize.ML Thu Oct 21 14:55:09 2010 +0200 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_minimize.ML Thu Oct 21 16:25:40 2010 +0200 @@ -96,7 +96,7 @@ i (_ : int) state axioms = let val thy = Proof.theory_of state - val atp = get_atp_fun thy prover + val atp = run_atp thy prover val msecs = Time.toMilliseconds timeout val _ = priority ("Sledgehammer minimize: prover " ^ quote prover ^ ".") val {context = ctxt, goal, ...} = Proof.goal state