diff options
| author | filliatr | 1999-10-20 14:36:38 +0000 |
|---|---|---|
| committer | filliatr | 1999-10-20 14:36:38 +0000 |
| commit | d78039a61ec14b0aae127bd7d823e17bb3fea8f6 (patch) | |
| tree | 672fba5fbe9321a64422b73007aa9f030b0a0464 /kernel | |
| parent | 264afb325ec8e34009cf267d418ff0ba3ceb1da5 (diff) | |
module Clenv (debut)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@111 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/type_errors.ml | 2 | ||||
| -rw-r--r-- | kernel/type_errors.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/kernel/type_errors.ml b/kernel/type_errors.ml index f99a026104..c072a368b4 100644 --- a/kernel/type_errors.ml +++ b/kernel/type_errors.ml @@ -70,3 +70,5 @@ let error_ill_formed_rec_body k env str lna i vdefs = let error_ill_typed_rec_body k env i lna vdefj vargs = raise (TypeError (k, context env, IllTypedRecBody (i,lna,vdefj,vargs))) + + diff --git a/kernel/type_errors.mli b/kernel/type_errors.mli index 7a1f232f17..961a1b2511 100644 --- a/kernel/type_errors.mli +++ b/kernel/type_errors.mli @@ -71,3 +71,4 @@ val error_ill_formed_rec_body : val error_ill_typed_rec_body : path_kind -> unsafe_env -> int -> name list -> unsafe_judgment array -> typed_type array -> 'b + |