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

theorem
  arcsin qua Function * (sin | [.-PI/2,PI/2.]) = id [.-PI/2,PI/2.] by Lm15,Th62
