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/evarconv.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/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 799ca25233..0dc7961103 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -711,7 +711,7 @@ and evar_eqappr_x ?(rhs_is_already_stuck = false) ts env evd pbty (try let evd' = if pbty == CONV - then Evd.set_eq_sort evd s1 s2 + then Evd.set_eq_sort env evd s1 s2 else Evd.set_leq_sort env evd s1 s2 in Success evd' with Univ.UniverseInconsistency p -> |