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

theorem
  arccos * (cos | [.0,PI.]) = id [.-1,1.] by COMPTRIG:32,FUNCT_1:39;
