diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-06 12:46:25 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-06 12:46:25 +0000 |
commit | 8ec12027e4641f88272c0275e31e93565f7c34cc (patch) | |
tree | 06d90a5a2532cc1c2b7b43e1229e5257c3b58970 /kernel | |
parent | 1c8eaac415b43ec27aa81afdc39837c14fb2d92c (diff) |
kernel/type_errors.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@583 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/type_errors.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/type_errors.mli b/kernel/type_errors.mli index 284f244f1..20fa410e4 100644 --- a/kernel/type_errors.mli +++ b/kernel/type_errors.mli @@ -35,6 +35,7 @@ type type_error = | OccurCheck of int * constr | NotClean of int * constr | VarNotFound of identifier + | UnexpectedType of constr * constr | NotProduct of constr (* Pattern-matching errors *) | BadConstructor of constructor * inductive @@ -91,4 +92,6 @@ 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 |