diff options
| author | Gaëtan Gilbert | 2017-11-11 21:57:25 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-02-11 22:28:39 +0100 |
| commit | d81ea7705cd60b6bcb1de07282860228a23b68ac (patch) | |
| tree | 6fe6feea61545c35bc80ad9ff8a9fe294f9419d1 /kernel/reduction.ml | |
| parent | 6c2d10b93b819f0735a43453c78566795de8ba5a (diff) | |
Universe instance printer: add optional variance argument.
Diffstat (limited to 'kernel/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index 208a62cedc..124c03ce5b 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -221,11 +221,9 @@ let convert_instances ~flex u u' (s, check) = let get_cumulativity_constraints cv_pb cumi u u' = match cv_pb with | CONV -> - Univ.Variance.eq_constraints (Univ.ACumulativityInfo.variance cumi) - u u' Univ.Constraint.empty + Univ.ACumulativityInfo.eq_constraints cumi u u' Univ.Constraint.empty | CUMUL -> - Univ.Variance.leq_constraints (Univ.ACumulativityInfo.variance cumi) - u u' Univ.Constraint.empty + Univ.ACumulativityInfo.leq_constraints cumi u u' Univ.Constraint.empty let inductive_cumulativity_arguments (mind,ind) = mind.Declarations.mind_nparams + |