From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Tue, 21 Oct 2008 11:28:47 +0000 (+0000)
Subject: psubst for metas fixed again
X-Git-Tag: make_still_working~4648
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=22574214f7ab6b0ce7de37b50cad2037074c51b0;p=helm.git

psubst for metas fixed again
---

diff --git a/helm/software/components/ng_kernel/nCicSubstitution.ml b/helm/software/components/ng_kernel/nCicSubstitution.ml
index 93268e258..c9413fcab 100644
--- a/helm/software/components/ng_kernel/nCicSubstitution.ml
+++ b/helm/software/components/ng_kernel/nCicSubstitution.ml
@@ -62,8 +62,7 @@ let rec psubst ?(avoid_beta_redexes=false) map_arg args =
         with Failure _ | Invalid_argument _ -> assert false))
    | C.Meta (i,(m,l)) as t when m >= k + nargs - 1 -> 
        if nargs <> 0 then C.Meta (i,(m-nargs,l)) else t
-   | C.Meta (i,(m,(C.Irl l as irl))) as t when k > l + m -> 
-       if nargs <> 0 then C.Meta (i,(m-nargs,irl)) else t
+   | C.Meta (i,(m,(C.Irl l as irl))) as t when k > l + m -> t
    | C.Meta (i,(m,l)) -> 
       let lctx = NCicUtils.expand_local_context l in
        C.Meta (i,(0,