X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Flfpxs_etc.ma;h=d8989b799d2c7783797a1db008cd1c692d741ec1;hb=990f97071a9939d47be16b36f6045d3b23f218e0;hp=0f34a15b3acb8763af3ffc7af3fa9c7fe993937a;hpb=42705ef31dd3513a998533e02b5f20fb38dd4fb2;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lfpxs_etc.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lfpxs_etc.ma index 0f34a15b3..d8989b799 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lfpxs_etc.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lfpxs_etc.ma @@ -7,6 +7,7 @@ lemma R_fle_comp_LTC: ∀R. R_fle_compatible R → R_fle_compatible (LTC … R). #R #HR #L #T1 #T2 #H elim H -T2 /3 width=3 by fle_trans_dx/ qed-. + lemma lfpxs_cpx_conf: ∀h,G. s_r_confluent1 … (cpx h G) (lfpxs h G). #h #G #L1 #T1 #T2 #HT12 #L2 #H elim (tc_lfxs_inv_lex_lfeq … H) -H #L #HL1 #HL2