(* $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