diff options
| author | mohring | 2000-11-22 13:08:24 +0000 |
|---|---|---|
| committer | mohring | 2000-11-22 13:08:24 +0000 |
| commit | 24cb368c8cda29daa0c34a807e49146c4885226a (patch) | |
| tree | 340ebffcf560752b47239669eed8ea13cf590ad7 /kernel | |
| parent | 651879023de7c2a96e58ebb3dfc32c25f4765b14 (diff) | |
Reparation bug mutuels ind
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@916 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |