diff options
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index cc56428fa4..ee4a404a7c 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -320,7 +320,6 @@ let typecheck_inductive env ctx mie = in match s with | Type u when expltype (* Explicitly polymorphic *) -> - (* && no_upper_constraints u (Univ.UContext.constraints mie.mind_entry_universes) -> *) (* The polymorphic level is a function of the level of the *) (* conclusions of the parameters *) (* We enforce [u >= lev] in case [lev] has a strict upper *) |