diff options
| author | Pierre-Marie Pédrot | 2019-06-04 10:19:02 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-04 11:16:17 +0200 |
| commit | 0f54a91eac98baf076d8be8f52bccdb1de17ea46 (patch) | |
| tree | 5e6c7901f04577ba1fd4a4a05e09ff5df8cf4e76 /stm | |
| parent | e7ffa1bfa25300a25c1e81583b77d2d7587bbb5d (diff) | |
Slightly tweak the representation of dischargeable opaque proofs.
This will allow an easier removal of the discharge segment in a later
commit.
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |