diff options
| author | herbelin | 2000-10-06 16:08:20 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-06 16:08:20 +0000 |
| commit | 970b4b750486ad8544b5d0a3b2246282690e6c98 (patch) | |
| tree | d8aeeee6133883547e7e30246fcc544e32ae9746 /pretyping | |
| parent | ca91e3c69ba2dfed3f8fd24f721873f5d0cd2004 (diff) | |
Correction incompatibilites dans la fn des types des inductifs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@673 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/cases.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 3b3c09d384..e1ab02b737 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -895,7 +895,9 @@ let rec find_row_ind = function exception NotCoercible let inh_coerce_to_ind isevars env ty tyi = - let (ntys,_) = splay_prod env !isevars (mis_arity (Global.lookup_mind_specif tyi)) in + let (ntys,_) = + splay_prod env !isevars + (body_of_type (mis_nf_arity (Global.lookup_mind_specif tyi))) in let (_,evarl) = List.fold_right (fun (na,ty) (env,evl) -> |