blob: ac605f196a1307f24a94eaf5eb86075a295ac54f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
(* $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_ill_formed_branch_loc :
loc -> path_kind -> unsafe_env -> constr -> int -> constr -> constr -> 'b
val error_number_branches_loc :
loc -> path_kind -> unsafe_env -> constr -> constr -> int -> 'b
val error_occur_check : path_kind -> unsafe_env -> int -> constr -> 'a
val error_not_clean : path_kind -> unsafe_env -> int -> constr -> 'a
|
