diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-09-11 18:07:39 +0200 |
|---|---|---|
| committer |  Matthieu Sozeau <mattam@mattam.org> | 2015-10-02 15:54:10 +0200 |
| commit | e759333a8b5c11247c4cc134fdde8c1bd85a6e17 (patch) | |
| tree | 8eb43cf88b6d2367bb856f46b2a471af583e73db /kernel/indtypes.ml | |
| parent | 88abc50ece70405d71777d5350ca2fa70c1ff437 (diff) | |
Universes: enforce Set <= i for all Type occurrences.
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 8c89abe94..9c065101a 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -286,7 +286,10 @@ let typecheck_inductive env mie = let defu = Term.univ_of_sort def_level in let is_natural = type_in_type env || (check_leq (universes env') infu defu && - not (is_type0m_univ defu && not is_unit)) + not (is_type0m_univ defu && not is_unit) + (* (~ is_type0m_univ defu \/ is_unit) (\* infu <= defu && not prop or unital *\) *) + + ) in let _ = (** Impredicative sort, always allow *) |