X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Flfdeq_length.ma;h=06fa93f19f9f5a060a779e24d7873b12b0f70a9f;hb=47a745462a714af9d65cea7b61af56524bd98fa1;hp=1c7dee495ad75b64c1315c201efe5bd938af8df9;hpb=9323611e3819c1382b872a7ada00264991f36217;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lfdeq_length.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lfdeq_length.ma index 1c7dee495..06fa93f19 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lfdeq_length.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/lfdeq_length.ma @@ -12,16 +12,16 @@ (* *) (**************************************************************************) -include "basic_2/syntax/lveq_length.ma". include "basic_2/relocation/lifts_tdeq.ma". include "basic_2/static/lfxs_length.ma". +include "basic_2/static/lfxs_fsle.ma". include "basic_2/static/lfdeq.ma". (* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) -(* Advanved properties ******************************************************) +(* Advanved properties with free variables inclusion ************************) -lemma lfdeq_fle_comp: ∀h,o. lfxs_fle_compatible (cdeq h o). +lemma lfdeq_fsle_comp: ∀h,o. lfxs_fsle_compatible (cdeq h o). #h #o #L1 #L2 #T * #f1 #Hf1 #HL12 lapply (frees_lfdeq_conf h o … Hf1 … HL12) lapply (lexs_fwd_length … HL12)