X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Frpx_fsle.ma;h=d7e5e89ea11d5b3bd6059a0a5edcb0978c082c58;hp=d4769c8385ce58e634a184bbb7699f5845714aad;hb=647504aa72b84eb49be8177b88a9254174e84d4b;hpb=b2cdc4abd9ac87e39bc51b0d9c38daea179adbd5 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma index d4769c838..d7e5e89ea 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma @@ -126,15 +126,15 @@ lemma cpx_fsge_comp (G): R_fsge_compatible (cpx G). (* Note: lemma 1000 *) (* Basic_2A1: uses: cpx_llpx_sn_conf *) -lemma cpx_rex_conf (R) (G): s_r_confluent1 … (cpx G) (rex R). +lemma cpx_rex_conf_sn (R) (G): s_r_confluent1 … (cpx G) (rex R). /3 width=3 by fsge_rex_trans, cpx_fsge_comp/ qed-. (* Advanced properties ******************************************************) -lemma rpx_cpx_conf (G): s_r_confluent1 … (cpx G) (rpx G). -/2 width=5 by cpx_rex_conf/ qed-. +lemma rpx_cpx_conf_sn (G): s_r_confluent1 … (cpx G) (rpx G). +/2 width=5 by cpx_rex_conf_sn/ qed-. lemma rpx_cpx_conf_fsge_dx (G): ∀L0,T0,T1. ❪G,L0❫ ⊢ T0 ⬈ T1 → ∀L2. ❪G,L0❫ ⊢⬈[T0] L2 → ❪L2,T1❫ ⊆ ❪L0,T1❫. -/3 width=5 by rpx_cpx_conf, rpx_fsge_comp/ qed-. +/3 width=5 by rpx_cpx_conf_sn, rpx_fsge_comp/ qed-.