changeset 38023 | 962b0a7f544b |
parent 38021 | e024504943d1 |
child 38045 | f367847f5068 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_fact_minimizer.ML Tue Jul 27 17:58:30 2010 +0200 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_fact_minimizer.ML Tue Jul 27 18:33:10 2010 +0200 @@ -81,7 +81,7 @@ let val thy = Proof.theory_of state val prover = case atps of - [atp_name] => get_prover thy atp_name + [atp_name] => get_prover_fun thy atp_name | _ => error "Expected a single ATP." val msecs = Time.toMilliseconds minimize_timeout val _ =