merged
authorpaulson
Sat, 02 Nov 2019 20:52:24 +0000
changeset 71005 7f1241a2bf30
parent 71003 699ff83813c0 (diff)
parent 71004 b86d30707837 (current diff)
child 71006 41685289b8eb
child 71008 e892f7a1fd83
merged
--- a/src/Pure/proofterm.ML	Sat Nov 02 20:51:54 2019 +0000
+++ b/src/Pure/proofterm.ML	Sat Nov 02 20:52:24 2019 +0000
@@ -2109,7 +2109,7 @@
               let
                 val prf' = thm_body_proof_raw thm_body;
                 val export = thm_body_export_proof thm_body;
-                val boxes' = boxes |> not (Lazy.is_finished export) ? Inttab.update (i, export);
+                val boxes' = Inttab.update (i, export) boxes;
               in export_boxes prf' boxes' end)
       | export_boxes _ = I;
     val boxes = (proofs, Inttab.empty) |-> fold export_boxes |> Inttab.dest;