From c3e26fca1d077a2b69926df85d05e067882c40b0 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Tue, 19 Dec 2017 08:33:55 +0100 Subject: Specific type for section definition entries. This allows to statically ensure well-formedness properties. --- kernel/safe_typing.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'kernel/safe_typing.ml') diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index fa984515a..4fbe02cf5 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 -- cgit v1.2.3