changeset 55243 | 66709d41601e |
parent 55223 | 3c593bad6b31 |
child 55244 | 12e1a5d8ee48 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_isar_try0.ML Sun Feb 02 19:15:25 2014 +0000 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_isar_try0.ML Sun Feb 02 20:53:51 2014 +0100 @@ -43,6 +43,7 @@ result as Played _ => SOME (variant, result) | _ => NONE) in + (* FIXME: create variant after success *) (case Par_List.get_some try_variant (variants_of_step step) of SOME (step' as Prove (_, _, _, _, _, (_, (meth' :: _) :: _)), result) => (set_preplay_outcome l meth' result; step')