X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_tweq.ma;h=f314e2b81ccc0d13850772421a494f6d8d54c476;hb=67fe9cec87e129a2a41c75d7ed8456a6f3314421;hp=addd91c72cce3e386302d3cf32ad357b8715907f;hpb=86861e6f031df66824a381527dfe847029ff72bc;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..f314e2b81 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma @@ -97,7 +97,7 @@ 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 → ⊥. + ∀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