tuned;
authorwenzelm
Mon, 04 Nov 2019 15:15:56 +0100
changeset 71220 b697dd74221a
parent 71219 4003da7e6a79
child 71221 6504ea98623c
tuned;
src/HOL/Proofs/ex/XML_Data.thy
--- a/src/HOL/Proofs/ex/XML_Data.thy	Mon Nov 04 15:14:34 2019 +0100
+++ b/src/HOL/Proofs/ex/XML_Data.thy	Mon Nov 04 15:15:56 2019 +0100
@@ -12,10 +12,9 @@
 subsection \<open>Export and re-import of global proof terms\<close>
 
 ML \<open>
-  fun export_proof thy thm =
-    Proofterm.encode (Sign.consts_of thy)
-      (Proofterm.reconstruct_proof thy (Thm.prop_of thm)
-        (Thm.standard_proof_of {full = true, expand_name = Thm.expand_name thm} thm));
+  fun export_proof thy thm = thm
+    |> Thm.standard_proof_of {full = true, expand_name = Thm.expand_name thm}
+    |> Proofterm.encode (Sign.consts_of thy);
 
   fun import_proof thy xml =
     let