X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_tweq.ma;h=45f8a383f7b47aea42919f79b1cc575a42f4c3a3;hb=25c634037771dff0138e5e8e3d4378183ff49b86;hp=addd91c72cce3e386302d3cf32ad357b8715907f;hpb=db020b4218272e2e35641ce3bc3b0a9b3afda899;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma index addd91c72..45f8a383f 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma @@ -48,7 +48,7 @@ lemma tweq_lifts_sn: liftable2_sn tweq. | #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f #X #H elim (lifts_inv_flat1 … H) -H #W1 #U1 #HVW1 #HTU1 #H destruct elim (IHV … HVW1) -V1 #W2 #HVW2 #HW12 - elim (IHT … HTU1) -T1 #U2 #HTU2 #HU12 + elim (IHT … HTU1) -T1 #U2 #HTU2 #HU12 /3 width=5 by lifts_flat, tweq_cast, ex2_intro/ ] qed-. @@ -96,8 +96,8 @@ lemma tweq_inv_lifts_bi: deliftable2_bi tweq. ] qed-. -lemma tweq_inv_abbr_pos_x_lifts_y_y (T) (f:rtmap): - ∀V,U. +ⓓV.U ≅ T → ⬆*[f]T ≘ U → ⊥. +lemma tweq_inv_abbr_pos_x_lifts_y_y (T) (f): + ∀V,U. +ⓓV.U ≅ T → ⇧*[f]T ≘ U → ⊥. @(f_ind … tw) #n #IH #T #Hn #f #V #U #H1 #H2 destruct elim (tweq_inv_abbr_pos_sn … H1) -H1 #X1 #X2 #HX2 #H destruct -V elim (lifts_inv_bind1 … H2) -H2 #Y1 #Y2 #_ #HXY2 #H destruct