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

theorem Th45:
  sin.:[.-PI/2,PI/2.] = [.-1,1.] by COMPTRIG:30,RELAT_1:115;
