diff options
Diffstat (limited to 'pretyping/pretype_errors.mli')
| -rw-r--r-- | pretyping/pretype_errors.mli | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/pretyping/pretype_errors.mli b/pretyping/pretype_errors.mli new file mode 100644 index 0000000000..2356154989 --- /dev/null +++ b/pretyping/pretype_errors.mli @@ -0,0 +1,22 @@ + +(* $Id$ *) + +open Pp +open Names +open Term +open Sign +open Environ +open Type_errors +open Rawterm + +(* The type of errors raised by the pretyper *) + +exception PreTypeError of loc * path_kind * context * type_error + +val error_cant_find_case_type_loc : loc -> unsafe_env -> constr -> 'a + +val error_number_branches_loc : + loc -> unsafe_env -> constr -> constr -> int -> 'b + +val error_ill_formed_branch_loc : + loc -> path_kind -> unsafe_env -> constr -> int -> constr -> constr -> 'b |