From 42412b457b8dfdbf20484a59b28dfe310f79e368 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 30 Dec 2009 15:02:26 +0000
Subject: Fixing bug #2156 (non positive occurrence error message displayed
 "Rel"'s).

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

(limited to 'kernel')

diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml
index ffb6be771b..10cedbf59e 100644
--- a/kernel/indtypes.ml
+++ b/kernel/indtypes.ml
@@ -497,7 +497,7 @@ let check_positivity_one (env, _,ntypes,_ as ienv) hyps i nargs lcnames indlc =
 		  raise (IllFormedInd LocalNotConstructor)
 	      else
 		if not (List.for_all (noccur_between n ntypes) largs)
-              then raise (IllFormedInd (LocalNonPos n));
+		then failwith_non_pos_list n ntypes largs;
 	      (nmr,List.rev lrec)
     in check_constr_rec ienv nmr [] c
   in
-- 
cgit v1.2.3