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

  rr for set,

  rseq for Real_Sequence;

theorem Th92:
  1 <= r & r <= sqrt 2 implies cosec.(arccosec2 r) = r
proof
  assume 1 <= r & r <= sqrt 2;
  then
A1: r in [.1,sqrt 2.];
  then
A2: r in dom (arccosec2|[.1,sqrt 2.]) by Th48,RELAT_1:62;
  cosec.(arccosec2 r) = ((cosec|[.PI/4,PI/2.]) qua Function).(arccosec2.r)
  by A1,Th88,FUNCT_1:49
    .= ((cosec|[.PI/4,PI/2.]) qua Function).((arccosec2|[.1,sqrt 2.]).r) by A1,
FUNCT_1:49
    .= ((cosec|[.PI/4,PI/2.]) qua Function * (arccosec2|[.1,sqrt 2.])).r by A2,
FUNCT_1:13
    .= (id [.1,sqrt 2.]).r by Th44,Th52,FUNCT_1:39
    .= r by A1,FUNCT_1:18;
  hence thesis;
end;
