X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpms_reqg.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpms_reqg.ma;h=f49044e686cad23f3b252ff5c29a21e03402891c;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=f837a4eb5b0ecb180100b0eb595494b79d876a57;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_reqg.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_reqg.ma index f837a4eb5..f49044e68 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_reqg.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_reqg.ma @@ -20,12 +20,12 @@ include "basic_2/rt_computation/cpms_cpxs.ma". (* Properties with generic equivalence for local environments ***************) lemma cpms_reqg_conf_sn (S) (h) (n) (G) (L1) (L2): - ∀T1,T2. ❪G,L1❫ ⊢ T1 ➡*[h,n] T2 → + ∀T1,T2. ❨G,L1❩ ⊢ T1 ➡*[h,n] T2 → L1 ≛[S,T1] L2 → L1 ≛[S,T2] L2. /3 width=5 by cpms_fwd_cpxs, cpxs_reqg_conf_sn/ qed-. lemma cpms_reqg_conf_dx (S) (h) (n) (G) (L1) (L2): reflexive … S → symmetric … S → - ∀T1,T2. ❪G,L2❫ ⊢ T1 ➡*[h,n] T2 → + ∀T1,T2. ❨G,L2❩ ⊢ T1 ➡*[h,n] T2 → L1 ≛[S,T1] L2 → L1 ≛[S,T2] L2. /3 width=5 by cpms_fwd_cpxs, cpxs_reqg_conf_dx/ qed-.