theorem
  arccot qua Function * (cot | ].0,PI.[) = id ].0,PI.[ by Lm6,Th12,FUNCT_1:39;
