changeset 45561 | 57227eedce81 |
parent 45520 | 2b1dde0b1c30 |
child 45666 | d83797ef0d2d |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_run.ML Fri Nov 18 11:47:12 2011 +0100 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_run.ML Fri Nov 18 11:47:12 2011 +0100 @@ -125,7 +125,7 @@ (case preplay of Played (reconstr, timeout) => if can_min_fast_enough timeout then - (true, extract_reconstructor reconstr + (true, extract_reconstructor params reconstr ||> (fn override_params => adjust_reconstructor_params override_params params))