From d782dabc61251834e35a77c43e070ea8b4e0b04a Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 16 May 2019 21:59:18 +0200
Subject: Centralize the hashconsing of constant declarations.

Safe_typing is now responsible for hashconsing of all accessible structures,
except for opaque terms which are handled by Opaqueproof.
---
 kernel/opaqueproof.ml | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'kernel/opaqueproof.ml')

diff --git a/kernel/opaqueproof.ml b/kernel/opaqueproof.ml
index 75f96da3eb..0ff27eb4ea 100644
--- a/kernel/opaqueproof.ml
+++ b/kernel/opaqueproof.ml
@@ -52,10 +52,15 @@ let turn_indirect dp o tab = match o with
       then CErrors.anomaly (Pp.str "Indirect in a different table.")
       else CErrors.anomaly (Pp.str "Already an indirect opaque.")
   | Direct (d,cu) ->
-      (** Uncomment to check dynamically that all terms turned into
-          indirections are hashconsed. *)
-(* let check_hcons c = let c' = hcons_constr c in assert (c' == c); c in *)
-(* let cu = Future.chain ~pure:true cu (fun (c, u) -> check_hcons c; c, u) in *)
+    (* Invariant: direct opaques only exist inside sections, we turn them
+      indirect as soon as we are at toplevel. At this moment, we perform
+      hashconsing of their contents, potentially as a future. *)
+      let hcons (c, u) =
+        let c = Constr.hcons c in
+        let u = Univ.hcons_universe_context_set u in
+        (c, u)
+      in
+      let cu = Future.chain cu hcons in
       let id = tab.opaque_len in
       let opaque_val = Int.Map.add id (d,cu) tab.opaque_val in
       let opaque_dir =
-- 
cgit v1.2.3