diff options
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 + |