blob: 33238ecd9e90c592cba12b4ce0aeba19a1d1804d (
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
30
31
|
(* $Id$ *)
(*i*)
open Pp
open Names
open Term
open Sign
open Environ
open Type_errors
open Rawterm
(*i*)
(* 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 -> env -> constr -> 'a
val error_ill_formed_branch_loc :
loc -> path_kind -> env -> constr -> int -> constr -> constr -> 'b
val error_number_branches_loc :
loc -> path_kind -> env -> constr -> constr -> int -> 'b
val error_occur_check : path_kind -> env -> int -> constr -> 'a
val error_not_clean : path_kind -> env -> int -> constr -> 'a
|