theorem
  arcsec1 qua Function * (sec | [.0,PI/2.[) = id [.0,PI/2.[ by Lm25,Th25,
