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

  rr for set,

  rseq for Real_Sequence;

theorem
  sec | ].PI/2,PI.] is one-to-one by Th18,FCONT_3:8;
