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

  rr for set,

  rseq for Real_Sequence;

theorem Th94:
  arcsec2|[.-sqrt 2,-1.] is continuous
proof
  set f = sec | [.3/4*PI,PI.];
  3/4*PI <= PI by Lm6,XXREAL_1:2;
  then f|[.3/4*PI,PI.] = f & (f|[.3/4*PI,PI.])"|(f.:[.3/4*PI,PI.]) is
  continuous by Lm30,Lm38,FCONT_1:47,RELAT_1:72;
  then arcsec2|[.-sqrt 2,-1.]|[.-sqrt 2,-1.] is continuous by Th42,Th50,
RELAT_1:115;
  hence thesis by FCONT_1:15;
end;
