From 7cc81d4bebb993ea6f71290a808a74439465cdde Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 8 Apr 2011 14:08:47 +0000
Subject: Replaced printing number of ill-typed branch by printing name of
 constructor when a "match" is kernel-ill-typed (probably rarely visible from
 end user anyway but useful for debugging) + dead code.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13969 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/type_errors.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/type_errors.ml')

diff --git a/kernel/type_errors.ml b/kernel/type_errors.ml
index c957ce69fe..0f849e11ab 100644
--- a/kernel/type_errors.ml
+++ b/kernel/type_errors.ml
@@ -48,7 +48,7 @@ type type_error =
   | CaseNotInductive of unsafe_judgment
   | WrongCaseInfo of inductive * case_info
   | NumberBranches of unsafe_judgment * int
-  | IllFormedBranch of constr * int * constr * constr
+  | IllFormedBranch of constr * constructor * constr * constr
   | Generalization of (name * types) * unsafe_judgment
   | ActualType of unsafe_judgment * types
   | CantApplyBadType of
-- 
cgit v1.2.3