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

theorem Th46:
  sin.:].-PI/2,PI/2.[ = ].-1,1.[
proof
  sin|].-PI/2,PI/2.[ c= sin|[.-PI/2,PI/2.] by RELAT_1:75,XXREAL_1:25;
  then
A1: rng (sin|].-PI/2,PI/2.[) c= rng (sin|[.-PI/2,PI/2.]) by RELAT_1:11;
A2: rng (sin|].-PI/2,PI/2.[) = sin.:].-PI/2,PI/2.[ by RELAT_1:115;
  thus sin.:].-PI/2,PI/2.[ c= ].-1,1.[
  proof
    let x be object;
    assume
A3: x in sin.:].-PI/2,PI/2.[;
    then consider a being object such that
A4: a in dom sin and
A5: a in ].-PI/2,PI/2.[ and
A6: sin.a = x by FUNCT_1:def 6;
    reconsider a, x as Real by A4,A6;
    set i = [\a/(2*PI)/];
A7: T(i)/(2*PI*1) = i/1 by XCMPLX_1:91;
A8: sin.a = sin a by SIN_COS:def 17;
A9: now
      assume x = 1;
      then
A10:  a = PI/2+T(i) by A6,A8,Th24;
      then PI/2+T(i) < PI/2 by A5,XXREAL_1:4;
      then PI/2+T(i)-PI/2 < PI/2-PI/2 by XREAL_1:9;
      then i < 0;
      then
A11:  i <= -1 by INT_1:8;
      -PI/2 < PI/2+T(i) by A5,A10,XXREAL_1:4;
      then -PI/2-PI/2 < PI/2+T(i)-PI/2 by XREAL_1:9;
      then ((-1)*PI)/(2*PI) < i by A7,XREAL_1:74;
      then (-1)/2 < i by XCMPLX_1:91;
      hence contradiction by A11,XXREAL_0:2;
    end;
A12: now
      assume x = -1;
      then
A13:  a = 3/2*PI+T(i) by A6,A8,Th23;
      then -PI/2 < 3/2*PI+T(i) by A5,XXREAL_1:4;
      then -PI/2-3/2*PI < 3/2*PI+T(i)-3/2*PI by XREAL_1:9;
      then (-2*PI)/(2*PI) < i by A7,XREAL_1:74;
      then -((2*PI)/(2*PI)) < i by XCMPLX_1:187;
      then -1 < i by XCMPLX_1:60;
      then
A14:  -1+1 <= i by INT_1:7;
      3/2*PI+T(i) < PI/2 by A5,A13,XXREAL_1:4;
      then 3/2*PI+T(i)-3/2*PI < PI/2-3/2*PI by XREAL_1:9;
      then i < (-PI)/(2*PI) by A7,XREAL_1:74;
      hence contradiction by A14,XCMPLX_1:91;
    end;
    x <= 1 by A1,A2,A3,COMPTRIG:30,XXREAL_1:1;
    then
A15: x < 1 by A9,XXREAL_0:1;
    -1 <= x by A1,A2,A3,COMPTRIG:30,XXREAL_1:1;
    then -1 < x by A12,XXREAL_0:1;
    hence thesis by A15,XXREAL_1:4;
  end;
  let a be object;
  assume
A16: a in ].-1,1.[;
  then reconsider a as Real;
  -1 < a & a < 1 by A16,XXREAL_1:4;
  then a in rng (sin|[.-PI/2,PI/2.]) by COMPTRIG:30,XXREAL_1:1;
  then consider x being object such that
A17: x in dom (sin|[.-PI/2,PI/2.]) and
A18: (sin|[.-PI/2,PI/2.]).x = a by FUNCT_1:def 3;
  reconsider x as Real by A17;
A19: sin.x = a by A17,A18,FUNCT_1:47;
  dom (sin|[.-PI/2,PI/2.]) = [.-PI/2,PI/2.] by RELAT_1:62,SIN_COS:24;
  then -PI/2 <= x & x <= PI/2 by A17,XXREAL_1:1;
  then -PI/2 < x & x < PI/2 or -PI/2 = x or PI/2 = x by XXREAL_0:1;
  then x in ].-PI/2,PI/2.[ by A16,A19,Th7,SIN_COS:76,XXREAL_1:4;
  hence thesis by A19,FUNCT_1:def 6,SIN_COS:24;
end;
