diff options
| author | Maxime Dénès | 2017-12-20 00:38:47 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-20 00:38:47 +0100 |
| commit | b3b3798fca7fd05f31cb921f981c15ee81507b0d (patch) | |
| tree | 21e626fe84012dac3043bd89b4ed20ac81b89742 /kernel/safe_typing.ml | |
| parent | 7fac7294a1906a8df835e6d7be5bb1bca3f727b5 (diff) | |
| parent | 25f09e86ba1a3ab3c24d5e17336b01315a205e00 (diff) | |
Merge PR #6449: Let definitions must not contain side-effects when reaching the kernel.
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 5150ad4113..fa984515a7 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -383,8 +383,7 @@ let safe_push_named d env = let push_named_def (id,de) senv = let open Entries in - let trust = Term_typing.SideEffects senv.revstruct in - let c,typ,univs = Term_typing.translate_local_def trust senv.env id de in + let c,typ,univs = Term_typing.translate_local_def senv.env id de in let poly = match de.Entries.const_entry_universes with | Monomorphic_const_entry _ -> false | Polymorphic_const_entry _ -> true |