X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Flexs_lexs.ma;h=20e2f91a2ac3a312373a5f7872da58c6d8636340;hb=150f931929c8333dbcfff8dbe77fb2e177f44c56;hp=545420f3b72ca1c17f07d52c37a1c376bfe08615;hpb=397413c4196f84c81d61ba7dd79b54ab1c428ebb;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lexs_lexs.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lexs_lexs.ma index 545420f3b..20e2f91a2 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lexs_lexs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/lexs_lexs.ma @@ -45,7 +45,6 @@ theorem lexs_trans_gen (RN1) (RP1) (RN2) (RP2) (RN) (RP): ] qed-. -(* Basic_2A1: includes: lpx_sn_trans *) theorem lexs_trans (RN) (RP) (f): (∀g,I,K. lexs_transitive RN RN RN RN RP g K I) → (∀g,I,K. lexs_transitive RP RP RP RN RP g K I) → Transitive … (lexs RN RP f). @@ -61,7 +60,6 @@ elim (lexs_inv_push1 … H) -H #I2 #K2 #HK2 #_ #H destruct /3 width=1 by lexs_push/ qed-. -(* Basic_2A1: includes: lpx_sn_conf *) theorem lexs_conf (RN1) (RP1) (RN2) (RP2): ∀L,f. (∀g,I,K,n. ⬇*[n] L ≘ K.ⓘ{I} → ↑g = ⫱*[n] f → R_pw_confluent2_lexs RN1 RN2 RN1 RP1 RN2 RP2 g K I) →