diff options
| author | Pierre-Marie Pédrot | 2021-04-06 13:16:56 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-04-06 13:16:56 +0200 |
| commit | dc565f2898145536cc6d3cf4346b6a60726bb8a9 (patch) | |
| tree | 944c014b8c1c9d899f488ebb2401fe4b5fe3c1c1 /engine/univProblem.ml | |
| parent | eb5eb561ccac73ea1f4dc998fe1331405e3820cb (diff) | |
| parent | 65f0b34c9740788270b48700a7ce2b5338ba1f64 (diff) | |
Merge PR #14042: Fix a bug in UnivProblem
Reviewed-by: SkySkimmer
Reviewed-by: ppedrot
Diffstat (limited to 'engine/univProblem.ml')
| -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 |