X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freduction%2Fcir_lift.ma;h=0dcd1cb815f4a9105a19f3ee0ff4355525ee4ac2;hb=29973426e0227ee48368d1c24dc0c17bf2baef77;hp=9539a6c03067747df92c0468c2a118814e4cbeee;hpb=f95f6cb21b86f3dad114b21f687aa5df36088064;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/reduction/cir_lift.ma b/matita/matita/contribs/lambdadelta/basic_2/reduction/cir_lift.ma
index 9539a6c03..0dcd1cb81 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/reduction/cir_lift.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/reduction/cir_lift.ma
@@ -20,9 +20,9 @@ include "basic_2/reduction/cir.ma".
 (* Properties on relocation *************************************************)
 
 lemma cir_lift: ∀K,T. K ⊢ 𝐈⦃T⦄ → ∀L,d,e. ⇩[d, e] L ≡ K →
-                ∀U. ⇧[d, e] T ≡ U → L ⊢ 𝐈⦃U⦄.
+                ∀U. ⇧[d, e] T ≡ U → ⦃G, L⦄ ⊢ 𝐈⦃U⦄.
 /3 width=7 by crr_inv_lift/ qed.
 
-lemma cir_inv_lift: ∀L,U. L ⊢ 𝐈⦃U⦄ → ∀K,d,e. ⇩[d, e] L ≡ K →
+lemma cir_inv_lift: ∀L,U. ⦃G, L⦄ ⊢ 𝐈⦃U⦄ → ∀K,d,e. ⇩[d, e] L ≡ K →
                     ∀T. ⇧[d, e] T ≡ U → K ⊢ 𝐈⦃T⦄.
 /3 width=7/ qed-.