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
---
 kernel/declarations.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'kernel/declarations.ml')

diff --git a/kernel/declarations.ml b/kernel/declarations.ml
index 82864bbe4c..9d2548b178 100644
--- a/kernel/declarations.ml
+++ b/kernel/declarations.ml
@@ -89,6 +89,7 @@ type one_inductive_body = {
     mind_sort : sorts;
     mind_kelim : sorts_family list;
     mind_consnames : identifier array;
+    mind_consnrealargs : int array;
     mind_nf_lc : types array; (* constrs and arity with pre-expanded ccl *)
     mind_user_lc : types array;
     mind_recargs : wf_paths;
@@ -122,6 +123,7 @@ let subst_const_body sub cb = {
 
 let subst_mind_packet sub mbp = 
   { mind_consnames = mbp.mind_consnames;
+    mind_consnrealargs = mbp.mind_consnrealargs;
     mind_typename = mbp.mind_typename;
     mind_nf_lc = 
       array_smartmap (type_app (subst_mps sub)) mbp.mind_nf_lc;
-- 
cgit v1.2.3