
theorem Th30:
for f be PartFunc of REAL,REAL, b,c be Real
 st b >= c & right_closed_halfline c c= dom f
  & f is_+infty_improper_integrable_on c
 holds f is_+infty_improper_integrable_on b
  & ( improper_integral_+infty(f,c) = infty_ext_right_integral(f,c)
     implies improper_integral_+infty(f,b) = infty_ext_right_integral(f,b) )
  & ( improper_integral_+infty(f,c) = +infty
     implies improper_integral_+infty(f,b) = +infty )
  & ( improper_integral_+infty(f,c) = -infty
     implies improper_integral_+infty(f,b) = -infty )
proof
    let f be PartFunc of REAL,REAL, b,c be Real;
    assume that
A1:  b >= c and
A2:  right_closed_halfline c c= dom f and
A3:  f is_+infty_improper_integrable_on c;

    per cases;
    suppose f is_+infty_ext_Riemann_integrable_on c; then
     improper_integral_+infty(f,c) = infty_ext_right_integral(f,c)
       by A3,Th27;
     hence thesis by A1,A2,A3,Lm11;
    end;
    suppose not f is_+infty_ext_Riemann_integrable_on c; then
     per cases by A3,Th27;
     suppose improper_integral_+infty(f,c) = +infty;
      hence thesis by A1,A2,A3,Lm12;
     end;
     suppose improper_integral_+infty(f,c) = -infty;
      hence thesis by A1,A2,A3,Lm13;
     end;
    end;
end;
