diff options
| author | herbelin | 2006-03-22 09:41:17 +0000 |
|---|---|---|
| committer | herbelin | 2006-03-22 09:41:17 +0000 |
| commit | 8291c83620312550d1ccbe9a304fd43f35724b12 (patch) | |
| tree | e5a19f90598a1f15bed7462d081bce333c7d22e8 /pretyping | |
| parent | 8fb0925c056c3e9a6103355eed31d283d6498070 (diff) | |
- Correction bug calcul mind_consnrealargs, introduit à la révision
7833, et que la révision 8644 n'avait pas corrigé dans le bon sens;
renommage en mind_consnrealdecls pour éviter la confusion de sens
avec mind_nrealargs
- Correction de la description du type one_inductive_body
- Ajout test avec let-in dans params et dans type constructeur
(fichier Case12.v)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8653 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/inductiveops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 3e43eee4dd..c0902526ac 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -114,7 +114,7 @@ let constructor_nrealargs env (ind,j) = let constructor_nrealhyps env (ind,j) = let (mib,mip) = Inductive.lookup_mind_specif env ind in - mip.mind_consnrealargs.(j-1) - rel_context_length (mib.mind_params_ctxt) + mip.mind_consnrealdecls.(j-1) (* Length of arity (w/o local defs) *) @@ -131,7 +131,7 @@ let make_case_info env ind style pats_source = source = pats_source } in { ci_ind = ind; ci_npar = mib.mind_nparams; - ci_cstr_nargs = mip.mind_consnrealargs; + ci_cstr_nargs = mip.mind_consnrealdecls; ci_pp_info = print_info } let make_default_case_info env style ind = |