diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-03-01 15:19:52 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-03-09 16:30:11 +0100 |
| commit | d640b676282285d52ac19038d693080e64eb5ea7 (patch) | |
| tree | 6c09e0963369997ff5e9c55490ff98a04331d1cd /engine/evarutil.ml | |
| parent | ee7f5486fff86c453767997f97eda381983c4bbc (diff) | |
Statically enforce that ULub is only between levels.
Diffstat (limited to 'engine/evarutil.ml')
| -rw-r--r-- | engine/evarutil.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index 2b6913c0b..fdb14b725 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -815,8 +815,7 @@ let subterm_source evk (loc,k) = let try_soft evd u u' = let open Universes in - let make = Univ.Universe.make in - try Evd.add_universe_constraints evd (Constraints.singleton (make u,ULub,make u')) + try Evd.add_universe_constraints evd (Constraints.singleton (ULub (u, u'))) with UState.UniversesDiffer | Univ.UniverseInconsistency _ -> evd (* Add equality constraints for covariant/invariant positions. For |