diff options
| author | herbelin | 2000-06-02 14:17:01 +0000 |
|---|---|---|
| committer | herbelin | 2000-06-02 14:17:01 +0000 |
| commit | 95aef6fa4dbbedb2ec31447fced8794c74cf76b9 (patch) | |
| tree | aaff24fcc8c3c4844355c60a6379290e4aa0ce95 | |
| parent | 77f8f2923ba79f68fad9203eaf075d86115610a0 (diff) | |
bugs infrence des arguments manquants dans le prdicat
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@494 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 b4c3a2bbda..f539d3685f 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -972,7 +972,7 @@ let case_dependent env sigma loc predj tomatchs = in let etapred = eta_expand env sigma predj.uj_val (body_of_type predj.uj_type) in let n = nb_lam etapred in - let _,sort = decomp_prod env sigma (body_of_type predj.uj_type) in + let _,sort = splay_prod env sigma (body_of_type predj.uj_type) in let ndepv = List.map nb_dep_ity tomatchs in let sum = List.fold_right (fun i j -> i+j) ndepv 0 in let depsum = sum + List.length tomatchs in |