diff options
| author | Matthieu Sozeau | 2021-04-01 01:33:33 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2021-04-01 01:33:33 +0200 |
| commit | 65f0b34c9740788270b48700a7ce2b5338ba1f64 (patch) | |
| tree | 8166b3688dbab9df77ba434b03138c4a28183169 | |
| parent | 1a64b1560ce88855a76e2faa14cec2864de2f37c (diff) | |
Fix a bug in UnivProblem
| -rw-r--r-- | engine/univProblem.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/univProblem.ml b/engine/univProblem.ml index 8d6689933c..7ac6ca1180 100644 --- a/engine/univProblem.ml +++ b/engine/univProblem.ml @@ -30,7 +30,7 @@ let subst_univs fn = function | UEq (u, v) -> let u' = subst_univs_universe fn u and v' = subst_univs_universe fn v in if Universe.equal u' v' then None - else Some (ULe (u',v')) + else Some (UEq (u',v')) | ULub (u, v) -> let u' = level_subst_of fn u and v' = level_subst_of fn v in if Level.equal u' v' then None |