From 9c2d70b91341552e964979ba09d5823cc023a31c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 23 May 2006 07:41:58 +0000
Subject: 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
---
 kernel/type_errors.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/type_errors.ml')

diff --git a/kernel/type_errors.ml b/kernel/type_errors.ml
index 7049a8afeb..bbd3e4bf4e 100644
--- a/kernel/type_errors.ml
+++ b/kernel/type_errors.ml
@@ -45,8 +45,8 @@ type type_error =
   | NotAType of unsafe_judgment
   | BadAssumption of unsafe_judgment
   | ReferenceVariables of constr
-  | ElimArity of inductive * types list * constr * unsafe_judgment
-      * (constr * constr * arity_error) option
+  | ElimArity of inductive * sorts_family list * constr * unsafe_judgment
+      * (sorts_family * sorts_family * arity_error) option
   | CaseNotInductive of unsafe_judgment
   | WrongCaseInfo of inductive * case_info
   | NumberBranches of unsafe_judgment * int
-- 
cgit v1.2.3