diff options
Diffstat (limited to 'pretyping/evarconv.ml')
-rw-r--r-- | pretyping/evarconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index d125a799b..47955e8e0 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -679,7 +679,7 @@ and evar_eqappr_x ?(rhs_is_already_stuck = false) ts env evd pbty let evd' = if pbty == CONV then Evd.set_eq_sort evd s1 s2 - else Evd.set_leq_sort evd s1 s2 + else Evd.set_leq_sort env evd s1 s2 in Success evd' with Univ.UniverseInconsistency p -> UnifFailure (evd,UnifUnivInconsistency p) |