reserve k,m,n for Nat;
reserve R for commutative Ring,
        p,q for Polynomial of R,
        z0,z1 for Element of R;

theorem Th30:
  Basel-seq1.m <= Sum(Basel-seq,m)
  proof
    set 2m1=2*m+1,2mI=2*m-1;
A1: (2*m*2mI/6) /(2m1^2)/(PI^2)"
       = ((2*m*2mI) / (2m1*2m1)) *(PI^2) *6"
      .= (2*m/2m1) *(2mI /2m1)  *(PI^2) *6" by XCMPLX_1:76
      .= (PI^2/6)*(2*m/2m1) *(2mI /2m1)
      .= Basel-seq1.m by BASEL_1:32;
    Sum sqr cot x_r-seq(m) <= Sum ((sqr x_r-seq(m))") by BASEL_1:29;
    then 2*m*2mI/6 <= Sum ((sqr x_r-seq(m))") by Th28;
    then 2*m*2mI/6 <= 2m1^2 / (PI^2) * Sum(Basel-seq,m) by BASEL_1:35;
    then 2*m*2mI/6 <= 2m1^2 * ((PI^2)" * Sum(Basel-seq,m));
    then (2*m*2mI/6) /(2m1^2) <= (PI^2)" * Sum(Basel-seq,m) by XREAL_1:79;
    hence thesis by A1,XREAL_1:79;
  end;
