diff options
| author | Maxime Dénès | 2016-12-04 12:03:18 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2016-12-04 12:03:18 +0100 |
| commit | f653036a73f008168809d3f50041382fe3ee52a1 (patch) | |
| tree | d9c9545e7515c3701434571f84b0aef74bf50158 /toplevel | |
| parent | 36df551d64a01e5f1fa7fe2ffdcbf1cb68b268cd (diff) | |
| parent | b8c0f76e507dc0c5dbae3ea7a89d78f16b4a7acb (diff) | |
Merge remote-tracking branch 'github/pr/366' into v8.6
Was PR#366: Univs: fix bug 5208
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/command.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 8b527ebd6f..a9f2598e22 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -540,11 +540,9 @@ let inductive_levels env evdref poly arities inds = in let duu = Sorts.univ_of_sort du in let evd = - if not (Univ.is_small_univ duu) && Evd.check_eq evd cu duu then - if is_flexible_sort evd duu then - if Evd.check_leq evd Univ.type0_univ duu then - evd - else Evd.set_eq_sort env evd (Prop Null) du + if not (Univ.is_small_univ duu) && Univ.Universe.equal cu duu then + if is_flexible_sort evd duu && not (Evd.check_leq evd Univ.type0_univ duu) then + Evd.set_eq_sort env evd (Prop Null) du else evd else Evd.set_eq_sort env evd (Type cu) du in |