diff options
| author | Pierre-Marie Pédrot | 2018-11-05 11:57:27 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-05 11:57:27 +0100 |
| commit | 3c8e41cb39647b8d8cd6cb9ecd6bb887a3aedfb7 (patch) | |
| tree | 14fddf88e81eb60b0d63978a20d837388fec98f6 /checker | |
| parent | 3939793d2cb509242cef8c59bdb5cf793af69980 (diff) | |
| parent | a6c1292b72cebf3d34a0e6a2da256e83e346dacc (diff) | |
Merge PR #8882: Fix #8881: validate fails to use inductive equivalence in case_info
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) || |