From 06456c76b7fa2f0c69380faf27a6ca403b1e6f3f Mon Sep 17 00:00:00 2001
From: vsiles
Date: Thu, 29 Apr 2010 15:36:02 +0000
Subject: fixed bug #2224 (Error message in positivity check fixed)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12974 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 90ddd984d0..a9f8fa7c6b 100644
--- a/kernel/indtypes.ml
+++ b/kernel/indtypes.ml
@@ -447,7 +447,7 @@ let check_positivity_one (env, _,ntypes,_ as ienv) hyps i nargs lcnames indlc =
       (* If the inductive appears in the args (non params) then the
 	 definition is not positive. *)
       if not (List.for_all (noccur_between n ntypes) auxlargs) then
-	raise (IllFormedInd (LocalNonPos n));
+	failwith_non_pos_list n ntypes auxlargs;
       (* We do not deal with imbricated mutual inductive types *)
       let auxntyp = mib.mind_ntypes in
 	if auxntyp <> 1 then raise (IllFormedInd (LocalNonPos n));
-- 
cgit v1.2.3