diff options
| author | Pierre-Marie Pédrot | 2016-08-21 02:47:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-08-21 02:47:12 +0200 |
| commit | 73827588102ddffc515f32eb23b0124563109df3 (patch) | |
| tree | f971ce8d44cf671961cc2e1e8b34c8178dbdca64 /pretyping | |
| parent | 13fb26d615cdb03a4c4841c20b108deab2de60b3 (diff) | |
| parent | 6278ce16ab1b8b65c7d1770d265471f594c8e793 (diff) | |
Merge branch 'v8.6'
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 447a4c487c..fe2b0a5a1a 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1871,7 +1871,7 @@ let inh_conv_coerce_to_tycon loc env evdref j tycon = (* We put the tycon inside the arity signature, possibly discovering dependencies. *) let prepare_predicate_from_arsign_tycon env sigma loc tomatchs arsign c = - let nar = List.fold_left (fun n sign -> List.length sign + n) 0 arsign in + let nar = List.fold_left (fun n sign -> Context.Rel.nhyps sign + n) 0 arsign in let subst, len = List.fold_right2 (fun (tm, tmtype) sign (subst, len) -> let signlen = List.length sign in |