Nouvelle implantation du polymorphisme de sorte pour les familles inductives

- prise en compte du niveau à la déclaration du type comme une fonction
  des sortes des conclusions des paramètres uniformes
- suppression du retypage de chaque instance de type inductif (trop coûteux)
  et donc abandon de l'idée de calculer une sorte minimale même dans
  des cas comme Inductive t (b:bool) := c : (if b then Prop else Type) -> t.


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8845 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 4 insertions, 3 deletions

diff --git a/kernel/vconv.ml b/kernel/vconv.ml
index f038c04f1..653f8978c 100644
--- a/kernel/vconv.ml
+++ b/kernel/vconv.ml
@@ -342,8 +342,8 @@ let constr_type_of_idkey env idkey =
       mkRel n, lift n ty
 
 let type_of_ind env ind = 
-  let (_,mip) = Inductive.lookup_mind_specif env ind in
-  mip.mind_nf_arity
+  let specif = Inductive.lookup_mind_specif env ind in
+  Inductive.type_of_inductive specif
 
 let build_branches_type (mind,_ as _ind) mib mip params dep p rtbl =
   (* [build_one_branch i cty] construit le type de la ieme branche (commence
@@ -461,7 +461,8 @@ and nf_stk env c t stk  =
 	in 
 	let aux = 
 	  nf_predicate env (type_of_switch sw) 
-	    (hnf_prod_applist env mip.mind_nf_arity (Array.to_list params)) in
+	    (hnf_prod_applist env (type_of_ind env ind) (Array.to_list params))
+	in
 	!dep,aux in
       (* Calcul du type des branches *)
       let btypes =