diff options
| author | coqbot-app[bot] | 2020-10-12 13:13:15 +0000 |
|---|---|---|
| committer | GitHub | 2020-10-12 13:13:15 +0000 |
| commit | 71a23e66a72972c7dc46ecbd333653cb7aff98b8 (patch) | |
| tree | def865ae805fb851ade092b1af9990a9e2ff75a0 /engine/uState.ml | |
| parent | a78b394d372f259107017cdb129be3fe53a15894 (diff) | |
| parent | 9fb630a984d4211cfdcc68a8d00e94f4f1f2af24 (diff) | |
Merge PR #12449: Minimize Prop <= i to i := Set
Reviewed-by: mattam82
Ack-by: Janno
Ack-by: gares
Diffstat (limited to 'engine/uState.ml')
| -rw-r--r-- | engine/uState.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/uState.ml b/engine/uState.ml index 2cb88c7fff..9557111cfd 100644 --- a/engine/uState.ml +++ b/engine/uState.ml @@ -675,7 +675,7 @@ let subst_univs_context_with_def def usubst (ctx, cst) = (LSet.diff ctx def, UnivSubst.subst_univs_constraints usubst cst) let is_trivial_leq (l,d,r) = - Level.is_prop l && (d == Le || (d == Lt && Level.is_set r)) + Level.is_prop l && (d == Le || d == Lt) && Level.is_set r (* Prop < i <-> Set+1 <= i <-> Set < i *) let translate_cstr (l,d,r as cstr) = |