diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-26 15:55:15 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-26 15:55:15 +0100 |
commit | aff038fbbe5ade8d58a895b3d2f6e32267c5184c (patch) | |
tree | 0598bda5a6432894e4fec9ac071cf9ad544d3ee2 /kernel/indtypes.ml | |
parent | 010775eba60ea89645792b48a0686ff15c4ebcb5 (diff) | |
parent | 6417a9e72feb39b87f0b456186100b11d1c87d5f (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'kernel/indtypes.ml')
-rw-r--r-- | kernel/indtypes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 697f482c4..23320daef 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -395,7 +395,7 @@ let check_correct_par (env,n,ntypes,_) hyps l largs = | _::hyps -> match kind_of_term (whd_betadeltaiota env lpar.(k)) with | Rel w when Int.equal w index -> check (k-1) (index+1) hyps - | _ -> raise (IllFormedInd (LocalNonPar (k+1, index, l))) + | _ -> raise (IllFormedInd (LocalNonPar (k+1, index-n+nhyps+1, l))) in check (nparams-1) (n-nhyps) hyps; if not (Array.for_all (noccur_between n ntypes) largs') then failwith_non_pos_vect n ntypes largs' |