aboutsummaryrefslogtreecommitdiff
path: root/pretyping/reductionops.ml
diff options
context:
space:
mode:
authorMaxime Dénès2015-10-15 14:21:45 +0200
committerMaxime Dénès2015-10-15 14:36:30 +0200
commit44817bf722eacb0379bebc7e435bfafa503d574f (patch)
tree210ffe37ee7e1d06f6a3b0b2a28b6bd192243c0d /pretyping/reductionops.ml
parent3116aeff0cdc51e6801f3e8ae4a6c0533e1a75ac (diff)
Fix #4346 2/2: VM casts were not inferring universe constraints.
Diffstat (limited to 'pretyping/reductionops.ml')
-rw-r--r--pretyping/reductionops.ml3
1 files changed, 0 insertions, 3 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml
index a24773b6e6..d25e273a3e 100644
--- a/pretyping/reductionops.ml
+++ b/pretyping/reductionops.ml
@@ -1251,9 +1251,6 @@ let pb_equal = function
| Reduction.CUMUL -> Reduction.CONV
| Reduction.CONV -> Reduction.CONV
-let sort_cmp cv_pb s1 s2 u =
- Reduction.check_sort_cmp_universes cv_pb s1 s2 u
-
let test_trans_conversion (f: ?l2r:bool-> ?evars:'a->'b) reds env sigma x y =
try
let evars ev = safe_evar_value sigma ev in