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 | |
| 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
| -rwxr-xr-x | dev/ocamldebug-v7 | 2 | ||||
| -rw-r--r-- | kernel/safe_typing.ml | 4 | ||||
| -rw-r--r-- | library/indrec.ml | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/dev/ocamldebug-v7 b/dev/ocamldebug-v7 index 7d609badb6..4d8e3092ac 100755 --- a/dev/ocamldebug-v7 +++ b/dev/ocamldebug-v7 @@ -3,7 +3,7 @@ # wrap around ocamldebug for Coq # export COQTOP=`coqtop -where` -export COQTOP=$HOME/local/coq/V7 +export COQTOP=$HOME/coq/V7 export COQLIB=$COQTOP export COQTH=$COQLIB/theories export CAMLP4LIB=`camlp4 -where` 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 = diff --git a/library/indrec.ml b/library/indrec.ml index bbd4e62c2a..0e0231cbae 100644 --- a/library/indrec.ml +++ b/library/indrec.ml @@ -23,7 +23,7 @@ let make_prod_dep dep env = if dep then prod_name env else mkProd (**********************************************************************) (* Building case analysis schemes *) (* Nouvelle version, plus concise mais plus coûteuse à cause de - lift_constructor et lift_inductive_family qui ne se contente pas de + lift_constructor et lift_inductive_family qui ne se contentent pas de lifter les paramètres globaux *) let mis_make_case_com depopt env sigma mispec kind = @@ -196,7 +196,7 @@ let make_rec_branch_arg env sigma (nparams,fvect,decF) f cstr recargs = let mis_make_indrec env sigma listdepkind mispec = let nparams = mis_nparams mispec in let lnamespar = mis_params_ctxt mispec in - let env' = (* push_rels lnamespar *) env in + let env' = (* push_rels lnamespar *) env in let nrec = List.length listdepkind in let depPvec = Array.create (mis_ntypes mispec) (None : (bool * constr) option) in |