X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpx_lfdeq.ma;h=45a70760339101341a0110157bdca227de31667b;hb=5c186c72f508da0849058afeecc6877cd9ed6303;hp=3aec365f7623ac1b408b7a41bdfc34cddc03bb97;hpb=c0a8f89161e9887c38eb5cf701f0f0c05a0e527f;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lfdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lfdeq.ma index 3aec365f7..45a707603 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lfdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lfdeq.ma @@ -12,10 +12,10 @@ (* *) (**************************************************************************) -include "basic_2/static/lfdeq.ma". -include "basic_2/rt_transition/cpx_lfxs.ma". +include "basic_2/static/lfdeq_lfdeq.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 degree-based equivalence for local environments **********) @@ -25,5 +25,5 @@ lemma cpx_lfdeq_conf_sn: ∀h,o,G. s_r_confluent1 … (cpx h G) (lfdeq h o). (* Basic_2A1: was just: cpx_lleq_conf_dx *) lemma cpx_lfdeq_conf_dx: ∀h,o,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ⬈[h] T2 → - ∀L1. L1 ≡[h, o, T1] L2 → L1 ≡[h, o, T2] L2. + ∀L1. L1 ≛[h, o, T1] L2 → L1 ≛[h, o, T2] L2. /4 width=4 by cpx_lfdeq_conf_sn, lfdeq_sym/ qed-.