diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-09-03 16:30:02 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-09-03 16:30:02 +0000 |
commit | 420143a1aeaaf152a4e10867fe74fb2079367ea5 (patch) | |
tree | c1267c0e3601e64f1640cb51c3ade5b8986a1ec9 /pretyping/pretype_errors.ml | |
parent | a5aa6380db920430299b858eb2e07b086f3d980c (diff) |
pretyping/pretyping.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2986 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretype_errors.ml')
-rw-r--r-- | pretyping/pretype_errors.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index cc8b0ed8b..4a60fce3d 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -24,6 +24,7 @@ type pretype_error = (* Unification *) | OccurCheck of int * constr | NotClean of int * constr + | UnsolvableImplicit of hole_kind (* Pretyping *) | VarNotFound of identifier | UnexpectedType of constr * constr @@ -135,6 +136,9 @@ let error_not_clean env sigma ev c = let c = nf_evar sigma c in raise (PretypeError (env_ise sigma env, NotClean (ev,c))) +let error_unsolvable_implicit loc env sigma e = + raise (PretypeError (env_ise sigma env, UnsolvableImplicit e)) + (*s Ml Case errors *) let error_cant_find_case_type_loc loc env sigma expr = |