From ad97cea6d32c0a5a58aca4355e2d40bb8a168575 Mon Sep 17 00:00:00 2001
From: werner
Date: Thu, 27 Oct 2005 16:19:39 +0000
Subject: catchable_exception laisse passer les InductiveError BW

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7473 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/logic.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/proofs/logic.ml b/proofs/logic.ml
index 013cf227f5..0c9fe01195 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -54,9 +54,11 @@ let catchable_exception = function
   | Stdpp.Exc_located(_,PretypeError(_,(CannotUnify _|CannotGeneralize _|
           NoOccurrenceFound _ | CannotUnifyBindingType _|NotClean _)))
   | Stdpp.Exc_located(_,(Util.UserError _ | TypeError _ | RefinerError _ |
-    Nametab.GlobalizationError _ | PretypeError (_,VarNotFound _))) -> true
+    Nametab.GlobalizationError _ | PretypeError (_,VarNotFound _)
+    | Indtypes.InductiveError (Indtypes.NotAllowedCaseAnalysis _ )))-> true
   | _ -> false
 
+
 (* Tells if the refiner should check that the submitted rules do not
    produce invalid subgoals *)
 let check = ref false
-- 
cgit v1.2.3