equal
deleted
inserted
replaced
68 override_params @ |
68 override_params @ |
69 [("preplay_timeout", "0"), |
69 [("preplay_timeout", "0"), |
70 ("minimize", "false")] |
70 ("minimize", "false")] |
71 val xs = run_prover override_params fact_override chained i i ctxt th |
71 val xs = run_prover override_params fact_override chained i i ctxt th |
72 in |
72 in |
73 if is_some xs then ALLGOALS Skip_Proof.cheat_tac th else Seq.empty |
73 if is_some xs then ALLGOALS (Skip_Proof.cheat_tac ctxt) th else Seq.empty |
74 end |
74 end |
75 |
75 |
76 end; |
76 end; |