diff options
| author | filliatr | 1999-12-01 08:20:00 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-01 08:20:00 +0000 |
| commit | b91ae6a8900b368af0a3acc0a61a8af0db783991 (patch) | |
| tree | 83655138d0dfc193b046f34c63150ff9d187b9e4 /kernel/type_errors.mli | |
| parent | dda7c7bb0b6ea0c2106459d8ae208eff0dfd6738 (diff) | |
- environment -> safe_environment
- unsafe_env -> env
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@168 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/type_errors.mli')
| -rw-r--r-- | kernel/type_errors.mli | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/kernel/type_errors.mli b/kernel/type_errors.mli index a3820217ba..70f444987c 100644 --- a/kernel/type_errors.mli +++ b/kernel/type_errors.mli @@ -36,49 +36,49 @@ type type_error = exception TypeError of path_kind * context * type_error -val error_unbound_rel : path_kind -> unsafe_env -> int -> 'b +val error_unbound_rel : path_kind -> env -> int -> 'b -val error_cant_execute : path_kind -> unsafe_env -> constr -> 'b +val error_cant_execute : path_kind -> env -> constr -> 'b -val error_not_type : path_kind -> unsafe_env -> constr -> 'b +val error_not_type : path_kind -> env -> constr -> 'b -val error_assumption : path_kind -> unsafe_env -> constr -> 'b +val error_assumption : path_kind -> env -> constr -> 'b -val error_reference_variables : path_kind -> unsafe_env -> identifier -> 'b +val error_reference_variables : path_kind -> env -> identifier -> 'b val error_elim_arity : - path_kind -> unsafe_env -> constr -> constr list -> constr + path_kind -> env -> constr -> constr list -> constr -> constr -> constr -> (constr * constr * string) option -> 'b val error_case_not_inductive : - path_kind -> unsafe_env -> constr -> constr -> 'b + path_kind -> env -> constr -> constr -> 'b val error_number_branches : - path_kind -> unsafe_env -> constr -> constr -> int -> 'b + path_kind -> env -> constr -> constr -> int -> 'b val error_ill_formed_branch : - path_kind -> unsafe_env -> constr -> int -> constr -> constr -> 'b + path_kind -> env -> constr -> int -> constr -> constr -> 'b val error_generalization : - path_kind -> unsafe_env -> name * typed_type -> constr -> 'b + path_kind -> env -> name * typed_type -> constr -> 'b val error_actual_type : - path_kind -> unsafe_env -> constr -> constr -> constr -> 'b + path_kind -> env -> constr -> constr -> constr -> 'b val error_cant_apply : - path_kind -> unsafe_env -> string -> unsafe_judgment + path_kind -> env -> string -> unsafe_judgment -> unsafe_judgment list -> 'b val error_ill_formed_rec_body : - path_kind -> unsafe_env -> std_ppcmds + path_kind -> env -> std_ppcmds -> name list -> int -> constr array -> 'b val error_ill_typed_rec_body : - path_kind -> unsafe_env -> int -> name list -> unsafe_judgment array + path_kind -> env -> int -> name list -> unsafe_judgment array -> typed_type array -> 'b -val error_not_inductive : path_kind -> unsafe_env -> constr -> 'a +val error_not_inductive : path_kind -> env -> constr -> 'a -val error_ml_case : path_kind -> unsafe_env -> +val error_ml_case : path_kind -> env -> string -> constr -> constr -> constr -> constr -> 'a |