changeset 59621 | 291934bac95e |
parent 59616 | eb59c6968219 |
child 59953 | 3d207f8f40dd |
--- a/src/Pure/Isar/proof.ML Fri Mar 06 14:01:08 2015 +0100 +++ b/src/Pure/Isar/proof.ML Fri Mar 06 15:58:56 2015 +0100 @@ -910,7 +910,7 @@ val goal_propss = filter_out null propss'; val goal = Logic.mk_conjunction_balanced (map Logic.mk_conjunction_balanced goal_propss) - |> Proof_Context.cterm_of ctxt + |> Thm.cterm_of ctxt |> Thm.weaken_sorts (Variable.sorts_of (context_of goal_state)); val statement = ((kind, pos), propss', Thm.term_of goal); val after_qed' = after_qed |>> (fn after_local =>