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

theorem Th87:
  (cos | [.0,PI.]) qua Function * arccos = id [.-1,1.] by COMPTRIG:32
