diff options
| author | coqbot-app[bot] | 2020-10-12 13:13:15 +0000 |
|---|---|---|
| committer | GitHub | 2020-10-12 13:13:15 +0000 |
| commit | 71a23e66a72972c7dc46ecbd333653cb7aff98b8 (patch) | |
| tree | def865ae805fb851ade092b1af9990a9e2ff75a0 /kernel | |
| parent | a78b394d372f259107017cdb129be3fe53a15894 (diff) | |
| parent | 9fb630a984d4211cfdcc68a8d00e94f4f1f2af24 (diff) | |
Merge PR #12449: Minimize Prop <= i to i := Set
Reviewed-by: mattam82
Ack-by: Janno
Ack-by: gares
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 5 | ||||
| -rw-r--r-- | kernel/environ.mli | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index e497b7904a..dec9e1deb8 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -274,6 +274,11 @@ let is_impredicative_sort env = function let is_impredicative_univ env u = is_impredicative_sort env (Sorts.sort_of_univ u) +let is_impredicative_family env = function + | Sorts.InSProp | Sorts.InProp -> true + | Sorts.InSet -> is_impredicative_set env + | Sorts.InType -> false + let type_in_type env = not (typing_flags env).check_universes let deactivated_guard env = not (typing_flags env).check_guarded diff --git a/kernel/environ.mli b/kernel/environ.mli index 47a118aa42..f443ba38e1 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -122,6 +122,7 @@ val indices_matter : env -> bool val is_impredicative_sort : env -> Sorts.t -> bool val is_impredicative_univ : env -> Univ.Universe.t -> bool +val is_impredicative_family : env -> Sorts.family -> bool (** is the local context empty *) val empty_context : env -> bool |