diff options
| author | Gaëtan Gilbert | 2020-05-14 11:16:23 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-05-14 11:16:23 +0200 |
| commit | 6f2b88649ec0c1e27befe7bcd2cdbec0ccee95d6 (patch) | |
| tree | e25e7dbdf2ba149f7ef06867448f557bb6cbcb4f /kernel/indTyping.ml | |
| parent | 13bd7bef1f61072d62c3a0bf69148eeeac895d9f (diff) | |
| parent | f71ef93aa21cd2ed4135588db3a5a3e8b42ceb39 (diff) | |
Merge PR #12313: Make explicit that UGraph lower bounds are only of two kinds.
Reviewed-by: SkySkimmer
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 8ac96a6481..e9687991c0 100644 --- a/kernel/indTyping.ml +++ b/kernel/indTyping.ml @@ -321,7 +321,7 @@ let typecheck_inductive env ~sec_univs (mie:mutual_inductive_entry) = if has_template_poly then (* For that particular case, we typecheck the inductive in an environment where the universes introduced by the definition are only [>= Prop] *) - let env = set_universes_lbound env Univ.Level.prop in + let env = set_universes_lbound env UGraph.Bound.Prop in push_context_set ~strict:false ctx env else (* In the regular case, all universes are [> Set] *) |