equal
deleted
inserted
replaced
208 (case SINGLE (tac' {prems = prems, context = ctxt'}) (init stmt) of |
208 (case SINGLE (tac' {prems = prems, context = ctxt'}) (init stmt) of |
209 NONE => err "Tactic failed" |
209 NONE => err "Tactic failed" |
210 | SOME st => |
210 | SOME st => |
211 let |
211 let |
212 val _ = |
212 val _ = |
213 Context.subthy_id (Thm.theory_id_of_thm st, Context.theory_id thy) orelse |
213 Context.subthy_id (Thm.theory_id st, Context.theory_id thy) orelse |
214 err "Bad background theory of goal state"; |
214 err "Bad background theory of goal state"; |
215 val res = |
215 val res = |
216 (finish ctxt' st |
216 (finish ctxt' st |
217 |> Drule.flexflex_unique (SOME ctxt') |
217 |> Drule.flexflex_unique (SOME ctxt') |
218 |> Thm.check_shyps ctxt' |
218 |> Thm.check_shyps ctxt' |