X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicRefiner.ml;h=26fc593b7dde5ab15ac86a6e6b401d2c84cc380b;hb=5450fa91891df49587fedff6edd6179cf1bbc879;hp=10881fa3490723013c706afd77ba8ce7f5a63076;hpb=74ba7fa3bde7145bbad4c42051a37c7a7e789301;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicRefiner.ml b/helm/software/components/ng_refiner/nCicRefiner.ml
index 10881fa34..26fc593b7 100644
--- a/helm/software/components/ng_refiner/nCicRefiner.ml
+++ b/helm/software/components/ng_refiner/nCicRefiner.ml
@@ -506,6 +506,7 @@ 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)