diff options
| author | Gaëtan Gilbert | 2020-01-18 14:46:05 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-01-22 14:50:15 +0100 |
| commit | 71aa415282a93a6e23af3b824f8531c58d2d66bd (patch) | |
| tree | dc33334717fd6717036c2f716115820878a75d12 /kernel | |
| parent | 2c71d636f80327500ea75c1c1ce59c554001a078 (diff) | |
Fix #11421 computation of Set+2
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 51440147ad..0712774576 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -345,8 +345,8 @@ struct (Level.is_prop u && not (Level.is_sprop v)) else false - let successor (u,n) = - if Level.is_small u then type1 + let successor (u,n as e) = + if is_small e then type1 else (u, n + 1) let addn k (u,n as x) = |