theorem Th31:
  (arctan qua Function) * (tan | ].-PI/2,PI/2.[) = id ].-PI/2,PI/2
  .[ by Lm5,Th11,FUNCT_1:39;
