diff options
Diffstat (limited to 'proofs/logic.ml')
-rw-r--r-- | proofs/logic.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index e9e1882f8..0c25e0ff8 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -50,10 +50,12 @@ type refiner_error = exception RefinerError of refiner_error +open Pretype_errors + let catchable_exception = function | Util.UserError _ | TypeError _ | RefinerError _ | Stdpp.Exc_located(_,(Util.UserError _ | TypeError _ | RefinerError _ | - Nametab.GlobalizationError _)) -> true + Nametab.GlobalizationError _ | PretypeError (_,VarNotFound _))) -> true | _ -> false let error_cannot_unify (m,n) = |