From 0f54a91eac98baf076d8be8f52bccdb1de17ea46 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 4 Jun 2019 10:19:02 +0200
Subject: Slightly tweak the representation of dischargeable opaque proofs.

This will allow an easier removal of the discharge segment in a later
commit.
---
 stm/stm.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'stm')

diff --git a/stm/stm.ml b/stm/stm.ml
index 8efb606ddc..ad18245dec 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -1747,7 +1747,7 @@ end = struct (* {{{ *)
         (* We only manipulate monomorphic terms here. *)
         let () = assert (Univ.AUContext.is_empty ctx) in
         let pr = Constr.hcons pr in
-        p.(bucket) <- Some (d.(bucket), Univ.AUContext.size ctx, pr);
+        p.(bucket) <- d.(bucket), Univ.AUContext.size ctx, Some pr;
         Univ.ContextSet.union cst uc, false
 
   let check_task name l i =
-- 
cgit v1.2.3