From 24cb368c8cda29daa0c34a807e49146c4885226a Mon Sep 17 00:00:00 2001
From: mohring
Date: Wed, 22 Nov 2000 13:08:24 +0000
Subject: Reparation bug mutuels ind

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@916 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/safe_typing.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel')

diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index db2f57d67c..ec88720fc1 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -447,9 +447,9 @@ let add_mind sp mie env =
 	 let (ind',cst') = 
 	   type_one_inductive i env_arities env_params nparams ninds ind 
 	 in
-	 (succ i,ind'::inds, Constraint.union cst cst'))
+	 (i-1,ind'::inds, Constraint.union cst cst'))
       mie.mind_entry_inds
-      (1,[],Constraint.empty) 
+      (ninds,[],Constraint.empty) 
   in
   let kind = kind_of_path sp in
   let mib = 
-- 
cgit v1.2.3