X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_coafter_nat_tls_pushs.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_coafter_nat_tls_pushs.ma;h=0dc77fb28e6fad96be997e5af71daa2f90ecf9b7;hb=15a2da1b45b2fd34ac67dcb58fc4b94330d18a93;hp=1690ffe91ccc8a1798d636a6e789dd498fa00bb0;hpb=6e4f8f6dc7ab7cdc0d9d852f6786947d3c4513cc;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_coafter_nat_tls_pushs.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_coafter_nat_tls_pushs.ma index 1690ffe91..0dc77fb28 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_coafter_nat_tls_pushs.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_coafter_nat_tls_pushs.ma @@ -23,7 +23,7 @@ include "ground/relocation/pr_coafter.ma". (*** coafter_fwd_pushs *) lemma pr_coafter_des_pushs_dx (n) (m): - ∀g2,f1,g. g2 ~⊚ ⫯*[m]f1 ≘ g → @↑❨m, g2❩ ≘ n → + ∀g2,f1,g. g2 ~⊚ ⫯*[m]f1 ≘ g → @§❨m, g2❩ ≘ n → ∃∃f. ⫰*[n]g2 ~⊚ f1 ≘ f & ⫯*[n] f = g. #n @(nat_ind_succ … n) -n [ #m #g2 #f1 #g #Hg #H