diff options
| author | Gaëtan Gilbert | 2020-09-25 15:31:51 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-09-28 14:56:22 +0200 |
| commit | 316592a31b463568f5136757c3570eaa8e1f0167 (patch) | |
| tree | b61967b917707ff576979e48c5d71def43a229f9 /kernel/indTyping.ml | |
| parent | b9f385cb43de4c463e649f8f6e33f32288e88a6c (diff) | |
Put type-in-type flag in ugraph.
Fix #13086.
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 } |