diff options
| author | Hugo Herbelin | 2014-11-17 18:09:48 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2014-11-19 18:52:13 +0100 |
| commit | 090fffa57b2235f70d4355f5dc85d73fa2634655 (patch) | |
| tree | d07b76c4f97d2c1266563ccdb8f5ee1c86143054 /pretyping/reductionops.ml | |
| parent | 51c8b16816ad0e9bdfaab0314fa6a0db5f4528f5 (diff) | |
Option -type-in-type continued (deactivate test for inferred sort of
inductive types + deactivate test for equality of sort + deactivate
the check that the constraints Prop/Set <= Type are declared).
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 3837ef0c8f..3e549fa846 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -1267,7 +1267,7 @@ let check_conv ?(pb=Reduction.CUMUL) ?(ts=full_transparent_state) env sigma x y let sigma_compare_sorts env pb s0 s1 sigma = match pb with - | Reduction.CONV -> Evd.set_eq_sort sigma s0 s1 + | Reduction.CONV -> Evd.set_eq_sort env sigma s0 s1 | Reduction.CUMUL -> Evd.set_leq_sort env sigma s0 s1 let sigma_compare_instances flex i0 i1 sigma = |