diff options
| author | Gaëtan Gilbert | 2018-10-31 14:29:39 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-10-31 14:30:24 +0100 |
| commit | a6c1292b72cebf3d34a0e6a2da256e83e346dacc (patch) | |
| tree | 0b56fcd9f289bfbf6f56a088866f62aaeafd27ff /checker | |
| parent | 86971b6280a660e1db3e7567aa104f5f7eec9e8c (diff) | |
Fix #8881: validate fails to use inductive equivalence in case_info
See also 55dbe8e2fa7ed2053ecd54140f6bcbdf31981e0b
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/inductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/inductive.ml b/checker/inductive.ml index 5e34f04f51..269a98cb0e 100644 --- a/checker/inductive.ml +++ b/checker/inductive.ml @@ -388,7 +388,7 @@ let type_case_branches env (pind,largs) (p,pj) c = let check_case_info env indsp ci = let mib, mip as spec = lookup_mind_specif env indsp in if - not (eq_ind_chk indsp ci.ci_ind) || + not (mind_equiv env indsp ci.ci_ind) || (mib.mind_nparams <> ci.ci_npar) || (mip.mind_consnrealdecls <> ci.ci_cstr_ndecls) || (mip.mind_consnrealargs <> ci.ci_cstr_nargs) || |