X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_tweq.ma;h=addd91c72cce3e386302d3cf32ad357b8715907f;hb=c0d38a82464481e3c8fd68e4b00d7b9b448df462;hp=3802cb1d4823d1345a8a6be419159bd18628c250;hpb=0fea4ed429678c3293027cfe76fdbe15cfa331cb;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 3802cb1d4..addd91c72 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma @@ -96,7 +96,7 @@ lemma tweq_inv_lifts_bi: deliftable2_bi tweq. ] qed-. -lemma tweq_inv_abbr_pos_sn_X_lifts_Y_Y (T) (f:rtmap): +lemma tweq_inv_abbr_pos_x_lifts_y_y (T) (f:rtmap): ∀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