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

theorem
  arccos 0 = PI/2 by Lm6,Th92,SIN_COS:77;
