diff options
Diffstat (limited to 'pretyping/pretype_errors.ml')
| -rw-r--r-- | pretyping/pretype_errors.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml new file mode 100644 index 0000000000..ea958976bd --- /dev/null +++ b/pretyping/pretype_errors.ml @@ -0,0 +1,6 @@ + +let error_cant_find_case_type loc env expr = + raise (PretypeError (loc,CCI,context env,CantFindCaseType expr)) + +let error_ill_formed_branch k env c i actty expty = + raise (TypeError (k, context env, IllFormedBranch (c,i,actty,expty))) |