From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 31 Jul 2009 13:07:53 +0000 (+0000)
Subject: Bug fixed: one case of too many arguments was not detected and used to diverge.
X-Git-Tag: make_still_working~3583
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=95a6821ff8ad21cd3d11d6472a882d146676979f;p=helm.git

Bug fixed: one case of too many arguments was not detected and used to diverge.
---

diff --git a/helm/software/components/ng_refiner/nCicRefiner.ml b/helm/software/components/ng_refiner/nCicRefiner.ml
index 10881fa34..0926db840 100644
--- a/helm/software/components/ng_refiner/nCicRefiner.ml
+++ b/helm/software/components/ng_refiner/nCicRefiner.ml
@@ -506,10 +506,12 @@ and eat_prods rdb ~localise force_ty metasenv subst context expty orig_t orig_he
       | C.Match (_,_,C.Meta _,_) 
       | C.Match (_,_,C.Appl (C.Meta _ :: _),_) 
       | C.Appl (C.Const (NReference.Ref (_, NReference.Fix _)) :: _) ->
+          too_many_args := true;
           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 + List.length args_so_far)
+            (List.length args_so_far))))
       | ty ->
           let metasenv, subst, newhead, newheadty = 
             too_many_args := true;