X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpms_reqg.ma;h=f49044e686cad23f3b252ff5c29a21e03402891c;hb=e0c91d8a4422da0b39aca790e5826dc8a617b303;hp=f837a4eb5b0ecb180100b0eb595494b79d876a57;hpb=b118146b97959e6a6dde18fdd014b8e1e676a2d1;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-.