diff options
| author | herbelin | 2001-12-18 09:16:00 +0000 |
|---|---|---|
| committer | herbelin | 2001-12-18 09:16:00 +0000 |
| commit | 2c92d6fd70eb8752a732bb1f54cf64ef97ee444a (patch) | |
| tree | a24641ef6ca6eb4f332bfd5dd7382b870bd34650 /pretyping/pretype_errors.mli | |
| parent | 06982f3aec9bbc02b9a7dc045ae3112fd5bc218f (diff) | |
Nettoyage exceptions liées au vieux Case
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2304 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretype_errors.mli')
| -rw-r--r-- | pretyping/pretype_errors.mli | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/pretyping/pretype_errors.mli b/pretyping/pretype_errors.mli index 5d04c50479..c3921f2452 100644 --- a/pretyping/pretype_errors.mli +++ b/pretyping/pretype_errors.mli @@ -20,13 +20,8 @@ open Inductiveops (*s The type of errors raised by the pretyper *) -type ml_case_error = - | MlCaseAbsurd - | MlCaseDependent - type pretype_error = (* Old Case *) - | MlCase of ml_case_error * inductive_type * unsafe_judgment | CantFindCaseType of constr (* Unification *) | OccurCheck of int * constr @@ -61,9 +56,6 @@ val error_cant_apply_bad_type_loc : loc -> env -> Evd.evar_map -> int * constr * constr -> unsafe_judgment -> unsafe_judgment list -> 'b -val error_cant_find_case_type_loc : - loc -> env -> Evd.evar_map -> constr -> 'b - val error_case_not_inductive_loc : loc -> env -> Evd.evar_map -> unsafe_judgment -> 'b @@ -87,9 +79,8 @@ val error_not_clean : env -> Evd.evar_map -> int -> constr -> 'b (*s Ml Case errors *) -val error_ml_case_loc : - loc -> env -> Evd.evar_map -> - ml_case_error -> inductive_type -> unsafe_judgment -> 'b +val error_cant_find_case_type_loc : + loc -> env -> Evd.evar_map -> constr -> 'b (*s Pretyping errors *) |