author | wenzelm |
Sat, 11 Jan 2014 17:05:03 +0100 | |
changeset 54992 | e5f4075d4c5e |
parent 54991 | 1169c65e9698 |
child 54993 | 625370769fc0 |
src/Pure/goal.ML | file | annotate | diff | comparison | revisions |
--- a/src/Pure/goal.ML Sat Jan 11 14:34:11 2014 +0100 +++ b/src/Pure/goal.ML Sat Jan 11 17:05:03 2014 +0100 @@ -168,8 +168,7 @@ fun prove_internal ctxt casms cprop tac = (case SINGLE (tac (map (Assumption.assume ctxt) casms)) (init cprop) of - SOME th => Drule.implies_intr_list casms - (finish (Syntax.init_pretty_global (Thm.theory_of_thm th)) th) + SOME th => Drule.implies_intr_list casms (finish ctxt th) | NONE => error "Tactic failed");