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

theorem
  sin.:[.PI/2,3/2*PI.] = [.-1,1.] by COMPTRIG:31,RELAT_1:115;
