author | wenzelm |
Wed, 25 Jan 2006 00:21:42 +0100 | |
changeset 18784 | 2d93559db27e |
parent 18783 | 628e57610536 |
child 18785 | 5ae1f1c1b764 |
--- a/src/Pure/Isar/proof.ML Wed Jan 25 00:21:41 2006 +0100 +++ b/src/Pure/Isar/proof.ML Wed Jan 25 00:21:42 2006 +0100 @@ -858,7 +858,7 @@ fun after_qed' results = (case target of NONE => I | SOME prfx => store_results (NameSpace.base prfx) - (map (map (ProofContext.export ctxt thy_ctxt + (map (map (ProofContext.export_standard ctxt thy_ctxt #> Drule.strip_shyps_warning)) results)) #> after_qed results; in