reserve x,x0, r,r1,r2 for Real,
      th for Real,

  rr for set,

  rseq for Real_Sequence;

theorem Th86:
  for x be set st x in [.-sqrt 2,-1.] holds arcsec2.x in [.3/4*PI, PI.]
proof
  let x be set;
A1: -sqrt 2 < -1 by SQUARE_1:19,XREAL_1:24;
  assume x in [.-sqrt 2,-1.];
  then x in ].-sqrt 2,-1.[ \/ {-sqrt 2,-1} by A1,XXREAL_1:128;
  then
A2: x in ].-sqrt 2,-1.[ or x in {-sqrt 2,-1} by XBOOLE_0:def 3;
  per cases by A2,TARSKI:def 2;
  suppose
A3: x in ].-sqrt 2,-1.[;
    then
A4: ].-sqrt 2,-1.[ c= [.-sqrt 2,-1.] &
   ex s be Real st s=x & -sqrt 2 < s &
    s < - 1 by XXREAL_1:25;
A5: [.-sqrt 2,-1.] /\ dom arcsec2 = [.-sqrt 2,-1.] by Th46,XBOOLE_1:28;
    then -1 in [.-sqrt 2,-1.] /\ dom arcsec2 by A1;
    then
A6: arcsec2.x < PI by A3,A5,A4,Th74,Th82,RFUNCT_2:20;
    -sqrt 2 in [.-sqrt 2,-1.] by A1;
    then 3/4*PI < arcsec2.x by A3,A5,A4,Th74,Th82,RFUNCT_2:20;
    hence thesis by A6;
  end;
  suppose
A7: x = -sqrt 2;
    3/4*PI <= PI by Lm6,XXREAL_1:2;
    hence thesis by A7,Th74;
  end;
  suppose
A8: x = -1;
    3/4*PI <= PI by Lm6,XXREAL_1:2;
    hence thesis by A8,Th74;
  end;
end;
