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

  rr for set,

  rseq for Real_Sequence;

theorem Th65:
  arcsec1 * (sec | [.0,PI/2.[) = id [.0,PI/2.[ by Lm25,Th25,FUNCT_1:39;
