diff options
| author | herbelin | 2006-01-10 23:59:09 +0000 |
|---|---|---|
| committer | herbelin | 2006-01-10 23:59:09 +0000 |
| commit | ed2af181cf0f381e61a82b354449abb549b8b47b (patch) | |
| tree | 3e06ace55fad6aa2a15e3855d7c99a78ba5c4098 /pretyping/inductiveops.ml | |
| parent | 6413a380bcc13541f5a8ede06782dc6af241c4e4 (diff) | |
Ajout de la longueur de l'arité des constructeurs dans one_inductive_body et dans case_info pour permettre l'indépendance de detyping (entre autres) envers l'environnement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7833 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/inductiveops.ml')
| -rw-r--r-- | pretyping/inductiveops.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 813a6a2699..f8f0e45bc3 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -116,6 +116,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_pp_info = print_info } let make_default_case_info env style ind = |