From f7e959dda9153033683469668b0d31bd08464b5c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 3 Oct 2001 14:13:52 +0000
Subject: Bug d'affichage du prédicat, bug d'affichage des clauses en présence
 de définitions locales dans le type de l'inductif filtré

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2100 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/detyping.ml | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml
index a3d6d86cfd..2aada52ee2 100644
--- a/pretyping/detyping.ml
+++ b/pretyping/detyping.ml
@@ -111,7 +111,9 @@ let encode_inductive ref =
 
 let constr_nargs indsp =
   let mis = Global.lookup_mind_specif (indsp,[||] (* ?? *)) in
-  Array.map List.length (mis_recarg mis)
+  let nparams = mis_nparams mis in
+  Array.map (fun t -> List.length (fst (decompose_prod_assum t)) - nparams)
+    (mis_nf_lc mis)
 
 let sp_of_spi (refsp,tyi) =
   let mip = Declarations.mind_nth_type_packet (Global.lookup_mind refsp) tyi in
@@ -231,6 +233,8 @@ let computable p k =
        sinon on perd la réciprocité de la synthèse (qui, lui,
        engendrera un prédicat non dépendant) *)
 
+  (nb_lam p = k+1)
+  &&
   let _,ccl = decompose_lam p in 
   noccur_between 1 (k+1) ccl
 
@@ -368,6 +372,10 @@ and detype_eqn avoid env constr_id construct_nargs branch =
 	    let pat,new_avoid,new_env,new_ids = make_pat x avoid env b ids in
             buildrec new_ids (pat::patlist) new_avoid new_env (n-1) b
 
+	| IsLetIn (x,_,_,b) -> 
+	    let pat,new_avoid,new_env,new_ids = make_pat x avoid env b ids in
+            buildrec new_ids (pat::patlist) new_avoid new_env (n-1) b
+
 	| IsCast (c,_) ->    (* Oui, il y a parfois des cast *)
 	    buildrec ids patlist avoid env n c
 
-- 
cgit v1.2.3