diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2017-11-20 18:43:31 +0100 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2017-11-22 11:14:46 +0100 |
commit | 2db70092d63065be8a5902764e0d1d5f1ea01e6c (patch) | |
tree | 478c124734b6444141378a1df22488f77b2102c7 /engine/uState.ml | |
parent | 2a857da2a88855a6c9f0fa7e48a8700c1613e0c7 (diff) |
Fix universe polymorphic Program obligations.
The universes of the obligations should all be non-algebraic as they
might appear in instances of other obligations and instances only take
non-algebraic universes as arguments.
Diffstat (limited to 'engine/uState.ml')
-rw-r--r-- | engine/uState.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/engine/uState.ml b/engine/uState.ml index dfea25dd0..01a479821 100644 --- a/engine/uState.ml +++ b/engine/uState.ml @@ -437,6 +437,9 @@ let make_flexible_variable ctx ~algebraic u = {ctx with uctx_univ_variables = uvars'; uctx_univ_algebraic = avars'} +let make_flexible_nonalgebraic ctx = + {ctx with uctx_univ_algebraic = Univ.LSet.empty} + let is_sort_variable uctx s = match s with | Sorts.Type u -> |