From f48478679585360a13ffc561a13ceb13dfed88d6 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 21 Jul 2001 20:25:13 +0000
Subject: 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
---
 kernel/inductive.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/inductive.ml')

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))
-- 
cgit v1.2.3