Déplacement des erreurs non noyau dans Pretype_errors ou Cases; localisation

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1445 85f007b7-540e-0410-9357-904b9bb8a0f7

2 files changed, 0 insertions, 47 deletions

diff --git a/kernel/type_errors.ml b/kernel/type_errors.ml
index 225756a99..bf0a99ee3 100644
--- a/kernel/type_errors.ml
+++ b/kernel/type_errors.ml
@@ -45,20 +45,6 @@ type type_error =
   | IllFormedRecBody of guard_error * name list * int * constr array
   | IllTypedRecBody of int * name list * unsafe_judgment array 
       * types array
-  | NotInductive of constr
-  | MLCase of string * constr * constr * constr * constr
-  | CantFindCaseType of constr
-  | OccurCheck of int * constr
-  | NotClean of int * constr
-  | VarNotFound of identifier
-  | UnexpectedType of constr * constr
-  | NotProduct of constr
-  (* Pattern-matching errors *)
-  | BadPattern of constructor * constr
-  | BadConstructor of constructor * inductive
-  | WrongNumargConstructor of constructor_path * int
-  | WrongPredicateArity of constr * constr * constr
-  | NeedsInversion of constr * constr
 
 exception TypeError of path_kind * env * type_error
 
@@ -107,15 +93,4 @@ let error_ill_formed_rec_body k env why lna i vdefs =
 let error_ill_typed_rec_body k env i lna vdefj vargs =
   raise (TypeError (k, env, IllTypedRecBody (i,lna,vdefj,vargs)))
 
-let error_not_inductive k env c =
-  raise (TypeError (k, env, NotInductive c))
-
-let error_ml_case k env mes c ct br brt =
-  raise (TypeError (k, env, MLCase (mes,c,ct,br,brt)))
-
-let error_unexpected_type env actual expected =
-  raise (TypeError (CCI, env, UnexpectedType (actual, expected)))
-
-let error_not_product env c =
-  raise (TypeError (CCI, env, NotProduct c))
 
diff --git a/kernel/type_errors.mli b/kernel/type_errors.mli
index e7e850c71..c45fac721 100644
--- a/kernel/type_errors.mli
+++ b/kernel/type_errors.mli
@@ -49,20 +49,6 @@ type type_error =
   | IllFormedRecBody of guard_error * name list * int * constr array
   | IllTypedRecBody of int * name list * unsafe_judgment array 
       * types array
-  | NotInductive of constr
-  | MLCase of string * constr * constr * constr * constr
-  | CantFindCaseType of constr
-  | OccurCheck of int * constr
-  | NotClean of int * constr
-  | VarNotFound of identifier
-  | UnexpectedType of constr * constr
-  | NotProduct of constr
-  (* Pattern-matching errors *)
-  | BadPattern of constructor * constr
-  | BadConstructor of constructor * inductive
-  | WrongNumargConstructor of constructor_path * int
-  | WrongPredicateArity of constr * constr * constr
-  | NeedsInversion of constr * constr
 
 exception TypeError of path_kind * env * type_error
 
@@ -107,11 +93,3 @@ val error_ill_typed_rec_body  :
   path_kind -> env -> int -> name list -> unsafe_judgment array 
     -> types array -> 'b
 
-val error_not_inductive : path_kind -> env -> constr -> 'a
-
-val error_ml_case : path_kind -> env -> 
-  string -> constr -> constr -> constr -> constr -> 'a
-
-val error_unexpected_type : env -> actual:constr -> expected:constr -> 'a
-
-val error_not_product : env -> constr -> 'a