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

theorem Th3:
  -1 <= sin r
proof
  sin.r in [.-1,1.] by COMPTRIG:27;
  then sin r in [.-1,1.] by SIN_COS:def 17;
  hence thesis by XXREAL_1:1;
end;
