X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Flpx_aaa.ma;h=6e2319f19a39bbdd632deb0293bf6b74dc14b4ee;hp=85ff65ecc6dec304140d81b058e3d9b80ead37dc;hb=f308429a0fde273605a2330efc63268b4ac36c99;hpb=87f57ddc367303c33e19c83cd8989cd561f3185b diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_aaa.ma index 85ff65ecc..6e2319f19 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_aaa.ma @@ -22,9 +22,9 @@ include "basic_2/rt_transition/lpx_drops.ma". (* Note: lemma 500 *) (* Basic_2A1: was: cpx_lpx_aaa_conf *) -lemma cpx_aaa_conf_lpx (h): ∀G,L1,T1,A. ⦃G, L1⦄ ⊢ T1 ⁝ A → - ∀T2. ⦃G, L1⦄ ⊢ T1 ⬈[h] T2 → - ∀L2. ⦃G, L1⦄ ⊢ ⬈[h] L2 → ⦃G, L2⦄ ⊢ T2 ⁝ A. +lemma cpx_aaa_conf_lpx (h): ∀G,L1,T1,A. ⦃G,L1⦄ ⊢ T1 ⁝ A → + ∀T2. ⦃G,L1⦄ ⊢ T1 ⬈[h] T2 → + ∀L2. ⦃G,L1⦄ ⊢ ⬈[h] L2 → ⦃G,L2⦄ ⊢ T2 ⁝ A. #h #G #L1 #T1 #A #H elim H -G -L1 -T1 -A [ #G #L1 #s #X #H elim (cpx_inv_sort1 … H) -H #H destruct //