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

  rr for set,

  rseq for Real_Sequence;

theorem Th66:
  arcsec2 * (sec | ].PI/2,PI.]) = id ].PI/2,PI.] by Lm26,Th26,FUNCT_1:39;
