diff options
| author | Pierre-Marie Pédrot | 2017-12-19 08:33:55 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-12-19 09:09:37 +0100 |
| commit | c3e26fca1d077a2b69926df85d05e067882c40b0 (patch) | |
| tree | 4bb0c1915307b2d4f58bb37b9438275a310297aa /kernel/safe_typing.ml | |
| parent | 25f09e86ba1a3ab3c24d5e17336b01315a205e00 (diff) | |
Specific type for section definition entries.
This allows to statically ensure well-formedness properties.
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index fa984515a7..4fbe02cf58 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -384,7 +384,7 @@ let safe_push_named d env = let push_named_def (id,de) senv = let open Entries in let c,typ,univs = Term_typing.translate_local_def senv.env id de in - let poly = match de.Entries.const_entry_universes with + let poly = match de.Entries.secdef_universes with | Monomorphic_const_entry _ -> false | Polymorphic_const_entry _ -> true in |