diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2017-02-21 12:56:28 +0100 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2017-06-05 20:53:14 +0200 |
commit | 36f3ae391ee188edb9d858d8832d7fd611db0482 (patch) | |
tree | 781f6cdb17e10f06eea44552b44ce80329f792f5 /engine/evd.ml | |
parent | e8137ae63b3b19436755f372b595e7343e942894 (diff) |
Univs: fix bug #5365, generation of u+k <= v constraints
Use an explicit label ~algebraic for make_flexible_variable as well.
Diffstat (limited to 'engine/evd.ml')
-rw-r--r-- | engine/evd.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index c2f848291..ac31728f4 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -809,8 +809,9 @@ let new_sort_variable ?loc ?name rigid d = let add_global_univ d u = { d with universes = UState.add_global_univ d.universes u } -let make_flexible_variable evd b u = - { evd with universes = UState.make_flexible_variable evd.universes b u } +let make_flexible_variable evd ~algebraic u = + { evd with universes = + UState.make_flexible_variable evd.universes ~algebraic u } let make_evar_universe_context e l = let uctx = UState.make (Environ.universes e) in |