diff options
| author | herbelin | 2001-07-21 20:25:13 +0000 |
|---|---|---|
| committer | herbelin | 2001-07-21 20:25:13 +0000 |
| commit | f48478679585360a13ffc561a13ceb13dfed88d6 (patch) | |
| tree | dd109b5fbe00752dc38c84f0e4f478346b92e814 /kernel/inductive.ml | |
| parent | 991b14dfa66560047c8d0676cb0995b20d2954e4 (diff) | |
Remplacement du tableau du nombre d'args utiles pour la réduction des Cases par le nombre d'args inutiles + vérification dans le noyau
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1860 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 9a8ed21d80..b528225145 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -187,11 +187,11 @@ let mis_is_recursive mis = (* Annotation for cases *) let make_case_info mis style pats_source = - let constr_lengths = Array.map List.length (mis_recarg mis) in +(* let constr_lengths = Array.map List.length (mis_recarg mis) in*) let indsp = (mis.mis_sp,mis.mis_tyi) in let print_info = (indsp,mis_consnames mis,mis.mis_mip.mind_nrealargs,style,pats_source) in - (constr_lengths,print_info) + ((*constr_lengths*) mis_nparams mis,print_info) let make_default_case_info mis = make_case_info mis None (Array.init (mis_nconstr mis) (fun _ -> RegularPat)) |