From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Mon, 7 Apr 2008 16:18:22 +0000 (+0000)
Subject: fixed error message for eat prods
X-Git-Tag: make_still_working~5420
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=3616e281b780573d49b73e5bd5aecf42bd4c8f53;p=helm.git

fixed error message for eat prods
---

diff --git a/helm/software/components/ng_kernel/nCicTypeChecker.ml b/helm/software/components/ng_kernel/nCicTypeChecker.ml
index 907dd8b6c..b9a585f97 100644
--- a/helm/software/components/ng_kernel/nCicTypeChecker.ml
+++ b/helm/software/components/ng_kernel/nCicTypeChecker.ml
@@ -558,8 +558,8 @@ let eat_prods ~subst ~metasenv context ty_he args_with_ty =
               (TypeCheckerFailure 
                 (lazy (Printf.sprintf
                   ("Appl: wrong parameter-type, expected %s, found %s")
-                  (NCicPp.ppterm ~subst ~metasenv ~context ty_arg) 
-                  (NCicPp.ppterm ~subst ~metasenv ~context s))))
+                  (NCicPp.ppterm ~subst ~metasenv ~context s)
+                  (NCicPp.ppterm ~subst ~metasenv ~context ty_arg))))
        | _ ->
           raise 
             (TypeCheckerFailure