diff options
-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 7d609badb..4d8e3092a 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 db2f57d67..ec88720fc 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 bbd4e62c2..0e0231cba 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 |