diff options
| author | Matthieu Sozeau | 2015-10-14 15:57:19 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-14 17:06:49 +0200 |
| commit | 5b67ba8e1bbd92d4ef7e2adab13bd05e7b55bfd7 (patch) | |
| tree | 6ddbd6f7a6e61a6b3a20bb0e630738bb723f321f | |
| parent | db80daaf82a08a1475c65f7c82bffb63c7efd27a (diff) | |
Univs: inductives, remove unneeded test
| -rw-r--r-- | kernel/indtypes.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 9c065101a3..5d7a0bbf00 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -285,11 +285,7 @@ let typecheck_inductive env mie = let full_polymorphic () = 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) - (* (~ is_type0m_univ defu \/ is_unit) (\* infu <= defu && not prop or unital *\) *) - - ) + type_in_type env || (check_leq (universes env') infu defu) in let _ = (** Impredicative sort, always allow *) |