X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpx_lfeq.ma;h=48ae7a970fb4ab2e77ffb299c7f54911b53c8cf5;hb=5c186c72f508da0849058afeecc6877cd9ed6303;hp=5ffcd5b44a741825d004a4434e105fe4c2490806;hpb=c44a7c4d35c1bb9651c3596519d8262e52e90ff4;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lfeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lfeq.ma index 5ffcd5b44..48ae7a970 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lfeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lfeq.ma @@ -13,9 +13,9 @@ (**************************************************************************) include "basic_2/static/lfeq.ma". -include "basic_2/rt_transition/cpx_lfxs.ma". +include "basic_2/rt_transition/lfpx_fsle.ma". -(* UNCOUNTED CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS *************) +(* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS ***************) (* Properties with syntactic equivalence for lenvs on referred entries ******) @@ -49,7 +49,7 @@ qed-. (* (* Basic_2A1: was: cpx_lleq_conf *) lemma cpx_lfeq_conf: ∀h,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ⬈[h] T2 → - ∀L1. L2 ≡[T1] L1 → ⦃G, L1⦄ ⊢ T1 ⬈[h] T2. + ∀L1. L2 ≘[T1] L1 → ⦃G, L1⦄ ⊢ T1 ⬈[h] T2. /3 width=3 by lfeq_cpx_trans, lfeq_sym/ qed-. *) (* Basic_2A1: was: cpx_lleq_conf_sn *) @@ -58,6 +58,6 @@ lemma cpx_lfeq_conf_sn: ∀h,G. s_r_confluent1 … (cpx h G) lfeq. (* (* Basic_2A1: was: cpx_lleq_conf_dx *) lemma cpx_lfeq_conf_dx: ∀h,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ⬈[h] T2 → - ∀L1. L1 ≡[T1] L2 → L1 ≡[T2] L2. + ∀L1. L1 ≘[T1] L2 → L1 ≘[T2] L2. /4 width=6 by cpx_lfeq_conf_sn, lfeq_sym/ qed-. -*) \ No newline at end of file +*)