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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
(* $Id$ *)
open Names
open Sign
open Environ
open Type_errors
open Rawterm
let raise_pretype_error (loc,k,ctx,te) =
raise (Stdpp.Exc_located (loc, TypeError(k,ctx,te)))
let error_var_not_found_loc loc k s =
raise_pretype_error (loc,k, Global.context() (*bidon*), VarNotFound s)
let error_cant_find_case_type_loc loc env expr =
raise_pretype_error (loc,CCI,context env,CantFindCaseType expr)
let error_ill_formed_branch k env c i actty expty =
raise (TypeError (k, context env, IllFormedBranch (c,i,actty,expty)))
let error_number_branches_loc loc k env c ct expn =
raise_pretype_error (loc, k, context env, NumberBranches (c,ct,expn))
let error_case_not_inductive_loc loc k env c ct =
raise_pretype_error (loc, k, context env, CaseNotInductive (c,ct))
(* Pattern-matching errors *)
let error_bad_constructor_loc loc k cstr ind =
raise_pretype_error (loc, k, Global.context(), BadConstructor (cstr,ind))
let error_wrong_numarg_constructor_loc loc k c n =
raise_pretype_error (loc, k, Global.context(), WrongNumargConstructor (c,n))
let error_wrong_predicate_arity_loc loc k env c n1 n2 =
raise_pretype_error (loc, k, context env, WrongPredicateArity (c,n1,n2))
let error_needs_inversion k env x t =
raise (TypeError (k, context env, NeedsInversion (x,t)))
let error_ill_formed_branch_loc loc k env c i actty expty =
raise_pretype_error (loc, k, context env, IllFormedBranch (c,i,actty,expty))
let error_occur_check k env ev c =
raise (TypeError (k, context env, OccurCheck (ev,c)))
let error_not_clean k env ev c =
raise (TypeError (k, context env, NotClean (ev,c)))
|
