changeset 43233 | 2749c357f865 |
parent 43165 | 8cf188ff76a3 |
child 43261 | a4aeb26a6362 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_run.ML Tue Jun 07 10:46:09 2011 +0200 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_run.ML Tue Jun 07 11:04:17 2011 +0200 @@ -102,7 +102,8 @@ (case preplay of Played (reconstructor, timeout) => if can_min_fast_enough (Time.toMilliseconds timeout) then - (true, reconstructor_name reconstructor) + (true, prover_name_for_reconstructor reconstructor + |> the_default name) else (prover_fast_enough, name) | _ => (prover_fast_enough, name),