diff options
Diffstat (limited to 'kernel/type_errors.mli')
| -rw-r--r-- | kernel/type_errors.mli | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/kernel/type_errors.mli b/kernel/type_errors.mli index 6632c172f2..7a1f232f17 100644 --- a/kernel/type_errors.mli +++ b/kernel/type_errors.mli @@ -31,43 +31,43 @@ type type_error = exception TypeError of path_kind * context * type_error -val error_unbound_rel : path_kind -> 'a unsafe_env -> int -> 'b +val error_unbound_rel : path_kind -> unsafe_env -> int -> 'b -val error_cant_execute : path_kind -> 'a unsafe_env -> constr -> 'b +val error_cant_execute : path_kind -> unsafe_env -> constr -> 'b -val error_not_type : path_kind -> 'a unsafe_env -> constr -> 'b +val error_not_type : path_kind -> unsafe_env -> constr -> 'b -val error_assumption : path_kind -> 'a unsafe_env -> constr -> 'b +val error_assumption : path_kind -> unsafe_env -> constr -> 'b -val error_reference_variables : path_kind -> 'a unsafe_env -> identifier -> 'b +val error_reference_variables : path_kind -> unsafe_env -> identifier -> 'b val error_elim_arity : - path_kind -> 'a unsafe_env -> constr -> constr list -> constr + path_kind -> unsafe_env -> constr -> constr list -> constr -> constr -> constr -> (constr * constr * string) option -> 'b val error_case_not_inductive : - path_kind -> 'a unsafe_env -> constr -> constr -> 'b + path_kind -> unsafe_env -> constr -> constr -> 'b val error_number_branches : - path_kind -> 'a unsafe_env -> constr -> constr -> int -> 'b + path_kind -> unsafe_env -> constr -> constr -> int -> 'b val error_ill_formed_branch : - path_kind -> 'a unsafe_env -> constr -> int -> constr -> constr -> 'b + path_kind -> unsafe_env -> constr -> int -> constr -> constr -> 'b val error_generalization : - path_kind -> 'a unsafe_env -> name * typed_type -> constr -> 'b + path_kind -> unsafe_env -> name * typed_type -> constr -> 'b val error_actual_type : - path_kind -> 'a unsafe_env -> constr -> constr -> constr -> 'b + path_kind -> unsafe_env -> constr -> constr -> constr -> 'b val error_cant_apply : - path_kind -> 'a unsafe_env -> string -> unsafe_judgment + path_kind -> unsafe_env -> string -> unsafe_judgment -> unsafe_judgment list -> 'b val error_ill_formed_rec_body : - path_kind -> 'a unsafe_env -> std_ppcmds + path_kind -> unsafe_env -> std_ppcmds -> name list -> int -> constr array -> 'b val error_ill_typed_rec_body : - path_kind -> 'a unsafe_env -> int -> name list -> unsafe_judgment array + path_kind -> unsafe_env -> int -> name list -> unsafe_judgment array -> typed_type array -> 'b |