X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fcomputation%2Flsx_ldrop.ma;h=61466ca351f3771d8c0ba8b57d033dd5ea14f74f;hb=876b7e94113e67c7fb2dbc9ff7956c399778ce6f;hp=cdb3f2fbc4bbd7ffce648484f0179dee0f8cb93c;hpb=84cc672d70212e4f204bc2f43120ec4d82f9bcd9;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..61466ca35 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_ldrop.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_ldrop.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.