theorem
  arccosec1 qua Function * (cosec | [.-PI/2,0.[) = id [.-PI/2,0.[ by Lm27,Th27,
