diff options
Diffstat (limited to 'checker/reduction.ml')
| -rw-r--r-- | checker/reduction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index c1eadcd64..c7c3846fa 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -154,7 +154,7 @@ let sort_cmp univ pb s0 s1 = if not (match pb with | CONV -> check_eq univ u1 u2 - | CUMUL -> check_geq univ u2 u1) + | CUMUL -> check_leq univ u1 u2) then raise NotConvertible | (_, _) -> raise NotConvertible |