From 76cbb3b74c5611fb8c274d4c911d5c83f85351a7 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 4 Apr 2008 19:46:04 +0000
Subject: Mise en place d'une extension de apply pour que celui-ci sache
 traverser les conjonctions (par exemple, apply sur un "iff" cherchera à
 utiliser la première des 2 composantes qui s'applique).

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

(limited to 'proofs')

diff --git a/proofs/logic.ml b/proofs/logic.ml
index 154f8481aa..c9ae781038 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -52,7 +52,7 @@ let rec catchable_exception = function
   | RefinerError _ | Indrec.RecursionSchemeError _
   | Nametab.GlobalizationError _ | PretypeError (_,VarNotFound _)
   (* unification errors *)
-  | PretypeError(_,(CannotUnify _|CannotGeneralize _|NoOccurrenceFound _|
+  | PretypeError(_,(CannotUnify _|CannotUnifyLocal _|CannotGeneralize _|NoOccurrenceFound _|
       CannotUnifyBindingType _|NotClean _)) -> true
   | _ -> false
 
-- 
cgit v1.2.3