diff options
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 + |