From 22574214f7ab6b0ce7de37b50cad2037074c51b0 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Tue, 21 Oct 2008 11:28:47 +0000 Subject: [PATCH] psubst for metas fixed again --- helm/software/components/ng_kernel/nCicSubstitution.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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, -- 2.39.2