diff options
| author | Gaëtan Gilbert | 2019-06-27 13:26:38 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-06-27 13:26:38 +0200 |
| commit | b7c85c2ebe8375232719cd2d61e55daef9b4a358 (patch) | |
| tree | 1cf1728310ce7339d95e40a3a32e6972394c3616 /kernel/safe_typing.ml | |
| parent | 90d0f98ea37038e35bba06f0c6ccb8e76d27a80e (diff) | |
| parent | 64e66fd019b968f863a80d4bce972545a66ea966 (diff) | |
Merge PR #10429: Perform the opaque section variable inference outside of the kernel
Reviewed-by: SkySkimmer
Reviewed-by: gares
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index a0cc2974d9..7526508c4e 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -691,7 +691,7 @@ let constant_entry_of_side_effect eff = if Declareops.is_opaque cb then OpaqueEntry { opaque_entry_body = Future.from_val ((p, Univ.ContextSet.empty), ()); - opaque_entry_secctx = None; + opaque_entry_secctx = cb.const_hyps; opaque_entry_feedback = None; opaque_entry_type = cb.const_type; opaque_entry_universes = univs; @@ -699,7 +699,7 @@ let constant_entry_of_side_effect eff = else DefinitionEntry { const_entry_body = (p, Univ.ContextSet.empty); - const_entry_secctx = None; + const_entry_secctx = Some cb.const_hyps; const_entry_feedback = None; const_entry_type = Some cb.const_type; const_entry_universes = univs; |