diff options
| author | Maxime Dénès | 2017-11-23 18:08:49 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-23 18:08:49 +0100 |
| commit | 167c52c6a15db5e094835244aff3ba76c78b391e (patch) | |
| tree | 550a25dd9fe910868b233a66dd4dd33bca943343 /engine/uState.ml | |
| parent | 915554785ffed11370f5d700d11a8b5614408096 (diff) | |
| parent | 2db70092d63065be8a5902764e0d1d5f1ea01e6c (diff) | |
Merge PR #6203: Fix universe polymorphic Program obligations.
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 dfea25dd04..01a4798217 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 -> |