From ed2af181cf0f381e61a82b354449abb549b8b47b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 10 Jan 2006 23:59:09 +0000
Subject: 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
---
 pretyping/inductiveops.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'pretyping')

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 =
-- 
cgit v1.2.3