X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fcomputation%2Flsx_ldrop.ma;h=9bd29a5f1964214ddcb5351cfc52c954a4c8cbfd;hb=8a5a354c9ac3ef20ca01dbeb61f6b99902f172a7;hp=cdb3f2fbc4bbd7ffce648484f0179dee0f8cb93c;hpb=376fd7774ef0fa2f30a4afb25aab6158e3cd04b7;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_ldrop.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_ldrop.ma index cdb3f2fbc..9bd29a5f1 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_ldrop.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_ldrop.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/substitution/lleq_ldrop.ma". +include "basic_2/relocation/lleq_ldrop.ma". include "basic_2/computation/lpxs_ldrop.ma". include "basic_2/computation/lsx.ma". @@ -23,7 +23,7 @@ include "basic_2/computation/lsx.ma". lemma lsx_lref_free: ∀h,g,G,L,d,i. |L| ≤ i → G ⊢ ⋕⬊*[h, g, #i, d] L. #h #g #G #L1 #d #i #HL1 @lsx_intro #L2 #HL12 #H elim H -H -/4 width=6 by lpxs_fwd_length, lleq_free, le_repl_sn_aux/ +/4 width=6 by lpxs_fwd_length, lleq_free, le_repl_sn_conf_aux/ qed. lemma lsx_lref_skip: ∀h,g,G,L,d,i. yinj i < d → G ⊢ ⋕⬊*[h, g, #i, d] L.