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

theorem
  -1 <= r & r <= 1 & arcsin r = PI/2 implies r = 1 by Th68,SIN_COS:77;
