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

(limited to 'kernel/inductive.ml')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index af237d1d12..06a3d5ecf2 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -278,7 +278,8 @@ let check_case_info env indsp ci =
   let (mib,mip) = lookup_mind_specif env indsp in
   if
     (indsp <> ci.ci_ind) or
-    (mib.mind_nparams <> ci.ci_npar)
+    (mib.mind_nparams <> ci.ci_npar) or
+    (mip.mind_consnrealargs <> ci.ci_cstr_nargs)
   then raise (TypeError(env,WrongCaseInfo(indsp,ci)))
 
 (************************************************************************)
-- 
cgit v1.2.3