From e7c20952e90d4f70ae84ab60b6aab62691c18aa0 Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 29 Mar 2006 21:21:52 +0000 Subject: Inductifs avec polymorphisme de sorte (version initiale) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8673 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/type_errors.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'kernel/type_errors.ml') diff --git a/kernel/type_errors.ml b/kernel/type_errors.ml index 9e8d58fa8..7049a8afe 100644 --- a/kernel/type_errors.ml +++ b/kernel/type_errors.ml @@ -103,7 +103,7 @@ let error_cant_apply_not_functional env rator randl = raise (TypeError (env, CantApplyNonFunctional (rator,randl))) let error_cant_apply_bad_type env t rator randl = - raise(TypeError (env, CantApplyBadType (t,rator,randl))) + raise (TypeError (env, CantApplyBadType (t,rator,randl))) let error_ill_formed_rec_body env why lna i = raise (TypeError (env, IllFormedRecBody (why,lna,i))) -- cgit v1.2.3