theorem
  arccos qua Function * (cos | [.0,PI.]) = id [.0,PI.] by Lm16,Th85,FUNCT_1:39;
