diff options
| author | barras | 2004-09-03 18:56:25 +0000 |
|---|---|---|
| committer | barras | 2004-09-03 18:56:25 +0000 |
| commit | 900d95913b625f9a7483dfefbf7ea0fbf93bcea2 (patch) | |
| tree | 7eed4150981a479820d35d39a351e5559d39439a /proofs/logic.ml | |
| parent | 85fb5f33b1cac28e1fe4f00741c66f6f58109f84 (diff) | |
deplacement de clenv vers pretyping
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6058 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/logic.ml')
| -rw-r--r-- | proofs/logic.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 314e3c5976..82994669b9 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -25,7 +25,6 @@ open Proof_trees open Proof_type open Typeops open Type_errors -open Coqast open Retyping open Evarutil @@ -40,7 +39,6 @@ type refiner_error = | NonLinearProof of constr (* Errors raised by the tactics *) - | CannotUnifyBindingType of constr * constr | IntroNeedsProduct | DoesNotOccurIn of constr * identifier @@ -51,8 +49,10 @@ open Pretype_errors let catchable_exception = function | Util.UserError _ | TypeError _ | RefinerError _ (* unification errors *) - | PretypeError(_,(CannotUnify _|CannotGeneralize _|NoOccurrenceFound _)) - | Stdpp.Exc_located(_,PretypeError(_,(CannotUnify _|CannotGeneralize _|NoOccurrenceFound _))) + | PretypeError(_,(CannotUnify _|CannotGeneralize _|NoOccurrenceFound _| + CannotUnifyBindingType _)) + | Stdpp.Exc_located(_,PretypeError(_,(CannotUnify _|CannotGeneralize _| + NoOccurrenceFound _ | CannotUnifyBindingType _))) | Stdpp.Exc_located(_,(Util.UserError _ | TypeError _ | RefinerError _ | Nametab.GlobalizationError _ | PretypeError (_,VarNotFound _))) -> true | _ -> false |