From ecb032467557631ea60324c6afa55c91c133e40d Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Fri, 17 Jun 2016 20:26:35 +0200 Subject: Reuse the typing_flags datatype for inductives. --- kernel/declareops.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'kernel/declareops.ml') diff --git a/kernel/declareops.ml b/kernel/declareops.ml index 5caf052ac..211e5e062 100644 --- a/kernel/declareops.ml +++ b/kernel/declareops.ml @@ -261,8 +261,7 @@ let subst_mind_body sub mib = mind_polymorphic = mib.mind_polymorphic; mind_universes = mib.mind_universes; mind_private = mib.mind_private; - mind_checked_positive = mib.mind_checked_positive; - mind_unsafe_universes = mib.mind_unsafe_universes; + mind_typing_flags = mib.mind_typing_flags; } let inductive_instance mib = -- cgit v1.2.3