src/HOL/Tools/Sledgehammer/sledgehammer_run.ML
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),