From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 2 Jul 2004 15:18:06 +0000 (+0000)
Subject: Bug fixed: the beta_expansion function did not lift the argument before
X-Git-Tag: pre_subst_in_kernel~10
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=9a10854931b9271c215040533a65e5330bc75122;p=helm.git

Bug fixed: the beta_expansion function did not lift the argument before
attempting to match it ==> no matching was done correctly under an
abstraction.
---

diff --git a/helm/ocaml/cic_unification/cicUnification.ml b/helm/ocaml/cic_unification/cicUnification.ml
index c8ed00477..646670ec8 100644
--- a/helm/ocaml/cic_unification/cicUnification.ml
+++ b/helm/ocaml/cic_unification/cicUnification.ml
@@ -49,7 +49,8 @@ let rec beta_expand test_equality_only metasenv subst context t arg =
   let rec aux metasenv subst n context t' =
    try
     let subst,metasenv =
-     fo_unif_subst test_equality_only subst context metasenv arg t'
+     fo_unif_subst test_equality_only subst context metasenv
+      (CicSubstitution.lift n arg) t'
     in
      subst,metasenv,C.Rel (1 + n)
    with