diff options
| author | Gaëtan Gilbert | 2019-10-10 16:43:24 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-10-10 16:43:24 +0200 |
| commit | ac862fb5ae8eb15c15f81817d78ba8db4430ea8b (patch) | |
| tree | fa653600716f97b8e6c00ec961c6155a706f3e55 /kernel/safe_typing.ml | |
| parent | b6dcb301a1a34df8e4586e8cde6618e7c895fa08 (diff) | |
| parent | c0e8d5c0ea52cfb0773ce881e6029f1879b1c7cf (diff) | |
Merge PR #10817: Remove redundancy in section hypotheses of kernel entries.
Reviewed-by: SkySkimmer
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 4268f0a602..1069d9a62c 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -733,7 +733,7 @@ let constant_entry_of_side_effect eff = if Declareops.is_opaque cb then OpaqueEff { opaque_entry_body = Future.from_val ((p, Univ.ContextSet.empty), ()); - opaque_entry_secctx = cb.const_hyps; + opaque_entry_secctx = Context.Named.to_vars cb.const_hyps; opaque_entry_feedback = None; opaque_entry_type = cb.const_type; opaque_entry_universes = univs; @@ -741,7 +741,7 @@ let constant_entry_of_side_effect eff = else DefinitionEff { const_entry_body = p; - const_entry_secctx = Some cb.const_hyps; + const_entry_secctx = Some (Context.Named.to_vars cb.const_hyps); const_entry_feedback = None; const_entry_type = Some cb.const_type; const_entry_universes = univs; |