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

theorem
  arcsin (-1) = -PI/2 by Th7,Th69;
