From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 2 Jul 2004 15:34:35 +0000 (+0000)
Subject: Bug fixed: eta_expand did not perform any recursion over the local context
X-Git-Tag: pre_subst_in_kernel~9
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=80d680bbbd13116576c961508e3c5631f218308d;p=helm.git

Bug fixed: eta_expand did not perform any recursion over the local context
of a metavariable ==> the local context was not lifted.
---

diff --git a/helm/ocaml/tactics/primitiveTactics.ml b/helm/ocaml/tactics/primitiveTactics.ml
index cc743d7cc..e318bd87c 100644
--- a/helm/ocaml/tactics/primitiveTactics.ml
+++ b/helm/ocaml/tactics/primitiveTactics.ml
@@ -72,7 +72,11 @@ let eta_expand metasenv context t arg =
     | C.Var (uri,exp_named_subst) ->
        let exp_named_subst' = aux_exp_named_subst n exp_named_subst in
         C.Var (uri,exp_named_subst')
-    | C.Meta _
+    | C.Meta (i,l) ->
+       let l' =
+        List.map (function None -> None | Some t -> Some (aux n t)) l
+       in
+        C.Meta (i, l')
     | C.Sort _
     | C.Implicit _ as t -> t
     | C.Cast (te,ty) -> C.Cast (aux n te, aux n ty)