diff options
| author | barras | 2001-11-06 14:26:31 +0000 |
|---|---|---|
| committer | barras | 2001-11-06 14:26:31 +0000 |
| commit | 1910f288b47123feb621f8cc1f338e7c95443c39 (patch) | |
| tree | a351f0e48fa2662ed8c34fa49a8cfba2a5cb6b4f /kernel | |
| parent | fd90172e9910c908639f661a723fa68a7aca4aff (diff) | |
corrections mineures suite au commit de restructuration du noyau
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2165 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/indtypes.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 1255e9787b..32303a6fac 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -354,7 +354,7 @@ let listrec_mconstr env ntypes hyps nparams i indlc = let (lpar,auxlargs) = list_chop auxnpar largs in if not (List.for_all (noccur_between n ntypes) auxlargs) then raise (IllFormedInd (LocalNonPos n)); - let auxlc = arities_of_constructors env mi in + let auxlc = mip.mind_nf_lc in let auxntyp = mib.mind_ntypes in if auxntyp <> 1 then raise (IllFormedInd (LocalNonPos n)); let lrecargs = List.map (check_weak_pos env n) lpar in @@ -407,7 +407,7 @@ let listrec_mconstr env ntypes hyps nparams i indlc = check_head=true, also check the head corresponds to a constructor of the ith type *) - and check_construct env check_head = + and check_construct env check_head n c = let rec check_constr_rec env lrec n c = let x,largs = decompose_app (whd_betadeltaiota env c) in match kind_of_term x with @@ -439,7 +439,7 @@ let listrec_mconstr env ntypes hyps nparams i indlc = if not (List.for_all (noccur_between n ntypes) largs) then raise (IllFormedInd (LocalNonPos n)); List.rev lrec - in check_constr_rec env [] + in check_constr_rec env [] n c in Array.map (fun c -> |