X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicRefiner.ml;h=26fc593b7dde5ab15ac86a6e6b401d2c84cc380b;hb=94c6cfe7e6b833190904c6b546668d716978a812;hp=0926db84081896b0717d086e5d2814857c4a4fb9;hpb=95a6821ff8ad21cd3d11d6472a882d146676979f;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicRefiner.ml b/helm/software/components/ng_refiner/nCicRefiner.ml
index 0926db840..26fc593b7 100644
--- a/helm/software/components/ng_refiner/nCicRefiner.ml
+++ b/helm/software/components/ng_refiner/nCicRefiner.ml
@@ -510,8 +510,7 @@ and eat_prods rdb ~localise force_ty metasenv subst context expty orig_t orig_he
           raise (Uncertain (lazy (localise orig_he, Printf.sprintf
             ("The term %s is here applied to %d arguments but expects " ^^
             "only %d arguments") (NCicPp.ppterm ~metasenv ~subst ~context he)
-            (List.length args + List.length args_so_far)
-            (List.length args_so_far))))
+            (List.length args) (List.length args_so_far))))
       | ty ->
           let metasenv, subst, newhead, newheadty = 
             too_many_args := true;