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

theorem Th64:
  (sin | [.-PI/2,PI/2.]) qua Function * arcsin = id [.-1,1.] by COMPTRIG:30
