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

  rr for set,

  rseq for Real_Sequence;

theorem
  arcsec2 qua Function * (sec | ].PI/2,PI.]) = id ].PI/2,PI.] by Lm26,Th26,
