reserve r,r1,r2, s,x for Real,
  i for Integer;

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