X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Fffdeq_lfeq.ma;h=a0bf7c46da05989bb2f712d57a7af1874eebd543;hb=75f395f0febd02de8e0f881d918a8812b1425c8d;hp=e0453bf323d0d119645ed4cd7fe3d7349e8299e4;hpb=d59f344b1e4b377e2f06abd9f8856d686d21b222;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_lfeq.ma b/matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_lfeq.ma index e0453bf32..a0bf7c46d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_lfeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_lfeq.ma @@ -19,7 +19,7 @@ include "basic_2/static/ffdeq.ma". (* Properties with syntactic equivalence on referred entries ****************) -lemma lfeq_lfdeq_trans: ∀h,o,L1,L,T1. L1 ≐[T1] L → +lemma lfeq_lfdeq_trans: ∀h,o,L1,L,T1. L1 ≡[T1] L → ∀G1,G2,L2,T2. ⦃G1, L, T1⦄ ≛[h, o] ⦃G2, L2, T2⦄ → ⦃G1, L1, T1⦄ ≛[h, o] ⦃G2, L2, T2⦄. #h #o #L1 #L #T1 #HL1 #G1 #G2 #L2 #T2 #H elim (ffdeq_inv_gen_sn … H) -H #H #HL2 #T12 destruct