X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Faaa_reqg.ma;h=79d26116eb610e351a932f658cf279dd09d25cbd;hb=e0c91d8a4422da0b39aca790e5826dc8a617b303;hp=f2b4fb05642ac70321db0b88d5d2a1965f2923a4;hpb=e23331eef5817eaa6c5e1c442d1d6bbb18650573;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/static/aaa_reqg.ma b/matita/matita/contribs/lambdadelta/static_2/static/aaa_reqg.ma index f2b4fb056..79d26116e 100644 --- a/matita/matita/contribs/lambdadelta/static_2/static/aaa_reqg.ma +++ b/matita/matita/contribs/lambdadelta/static_2/static/aaa_reqg.ma @@ -21,8 +21,8 @@ include "static_2/static/aaa.ma". lemma aaa_teqg_conf_reqg (S) (G): reflexive … S → - ∀L1,T1,A. ❪G,L1❫ ⊢ T1 ⁝ A → ∀T2. T1 ≛[S] T2 → - ∀L2. L1 ≛[S,T1] L2 → ❪G,L2❫ ⊢ T2 ⁝ A. + ∀L1,T1,A. ❨G,L1❩ ⊢ T1 ⁝ A → ∀T2. T1 ≛[S] T2 → + ∀L2. L1 ≛[S,T1] L2 → ❨G,L2❩ ⊢ T2 ⁝ A. #S #G #HS #L1 #T1 #A #H elim H -G -L1 -T1 -A [ #G #L1 #s1 #X #H1 elim (teqg_inv_sort1 … H1) -H1 // | #I #G #L1 #V1 #B #_ #IH #X #H1 >(teqg_inv_lref1 … H1) -H1 @@ -48,10 +48,10 @@ qed-. lemma aaa_teqg_conf (S) (G) (L) (A): reflexive … S → - ∀T1. ❪G,L❫ ⊢ T1 ⁝ A → ∀T2. T1 ≛[S] T2 → ❪G,L❫ ⊢ T2 ⁝ A. + ∀T1. ❨G,L❩ ⊢ T1 ⁝ A → ∀T2. T1 ≛[S] T2 → ❨G,L❩ ⊢ T2 ⁝ A. /3 width=7 by aaa_teqg_conf_reqg, reqg_refl/ qed-. lemma aaa_reqg_conf (S) (G) (T) (A): reflexive … S → - ∀L1. ❪G,L1❫ ⊢ T ⁝ A → ∀L2. L1 ≛[S,T] L2 → ❪G,L2❫ ⊢ T ⁝ A. + ∀L1. ❨G,L1❩ ⊢ T ⁝ A → ∀L2. L1 ≛[S,T] L2 → ❨G,L2❩ ⊢ T ⁝ A. /3 width=7 by aaa_teqg_conf_reqg, teqg_refl/ qed-.