diff options
| author | Matthieu Sozeau | 2018-06-25 18:26:55 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2018-06-25 18:26:55 +0200 |
| commit | a1fc621b943dbf904705dc88ed27c26daf4c5e72 (patch) | |
| tree | 2649ab1a1480b17b74c7207113d5ae8783f2ee42 /kernel/reduction.ml | |
| parent | 24279abf43cfbd65e2fc29f171eb8705fdf61a3e (diff) | |
| parent | 1311a2bf08ac1deb16f0b3064bc1164d75858a97 (diff) | |
Merge PR #7798: Remove hack skipping comparison of algebraic universes in subtyping.
Diffstat (limited to 'kernel/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index f4af313867..2c61b7a019 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -693,8 +693,8 @@ let infer_eq (univs, cstrs as cuniv) u u' = let infer_leq (univs, cstrs as cuniv) u u' = if UGraph.check_leq univs u u' then cuniv else - let cstrs' = Univ.enforce_leq u u' cstrs in - univs, cstrs' + let cstrs', _ = UGraph.enforce_leq_alg u u' univs in + univs, Univ.Constraint.union cstrs cstrs' let infer_cmp_universes env pb s0 s1 univs = let open Sorts in |