X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_aaa.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_aaa.ma;h=c7735d20c36ba9a2cc4ca89af5e5d4f557b1050b;hb=cacd7323994f7621286dbfd93bbf4c50acfbe918;hp=aa0c10865bfebc3f49e13d937606b7cab1028093;hpb=f76594123e375bd7852c9421fe260a7bec693a92;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_aaa.ma index aa0c10865..c7735d20c 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_aaa.ma @@ -66,7 +66,7 @@ qed-. lemma cnv_inv_appl_pred (a) (h) (G) (L): ∀V,T. ⦃G,L⦄ ⊢ ⓐV.T ![yinj a,h] → ∃∃p,W0,U0. ⦃G,L⦄ ⊢ V ![a,h] & ⦃G,L⦄ ⊢ T ![a,h] & - ⦃G,L⦄ ⊢ V ➡*[1,h] W0 & ⦃G,L⦄ ⊢ T ➡*[↓a,h] ⓛ{p}W0.U0. + ⦃G,L⦄ ⊢ V ➡*[1,h] W0 & ⦃G,L⦄ ⊢ T ➡*[↓a,h] ⓛ{p}W0.U0. #a #h #G #L #V #T #H elim (cnv_inv_appl … H) -H #n #p #W #U #Ha #HV #HT #HVW #HTU lapply (ylt_inv_inj … Ha) -Ha #Ha