diff options
| author | Pierre-Marie Pédrot | 2020-10-09 11:42:21 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-10-09 11:42:21 +0200 |
| commit | cc3ef68a475140bf7d3ca7a2fd3bc593508eb42c (patch) | |
| tree | f7e5671ab8228b8e73fe34e289076ba9dc801f55 /kernel/indTyping.ml | |
| parent | 022632c074205bbe9fa3f992782e948c12cb7384 (diff) | |
| parent | 316592a31b463568f5136757c3570eaa8e1f0167 (diff) | |
Merge PR #13087: Put type-in-type flag in ugraph.
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/indTyping.ml')
| -rw-r--r-- | kernel/indTyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/indTyping.ml b/kernel/indTyping.ml index 179353d3f0..b2520b780f 100644 --- a/kernel/indTyping.ml +++ b/kernel/indTyping.ml @@ -77,7 +77,7 @@ let check_univ_leq ?(is_real_arg=false) env u info = else info in (* Inductive types provide explicit lifting from SProp to other universes, so allow SProp <= any. *) - if type_in_type env || Univ.Universe.is_sprop u || UGraph.check_leq (universes env) u ind_univ + if Univ.Universe.is_sprop u || UGraph.check_leq (universes env) u ind_univ then { info with ind_min_univ = Option.map (Universe.sup u) info.ind_min_univ } else if is_impredicative_univ env ind_univ && Option.is_empty info.ind_min_univ then { info with ind_squashed = true } |