blob: 235615498907ca977be465ceddfe0a0125e6b7a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
|
