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

theorem Th53:
  sin|[.-PI/2+2*PI*i,PI/2+2*PI*i.] is increasing
proof
  defpred P[Integer] means sin|[.-PI/2+T($1),PI/2+T($1).] is increasing;
A1: for i holds P[i] implies P[i-1] & P[i+1]
  proof
    let i such that
A2: P[i];
    set Z = [.-PI/2+T(i-1+1),PI/2+T(i-1+1).];
    thus P[i-1]
    proof
      set Y = [.-PI/2+T(i-1),PI/2+T(i-1).];
      now
        let r1,r2;
        assume r1 in Y /\ dom sin & r2 in Y /\ dom sin;
        then
A3:     r1+2*PI in Z /\ dom sin & r2+2*PI in Z /\ dom sin by Lm12,SIN_COS:24;
        assume r1 < r2;
        then r1+2*PI < r2+2*PI by XREAL_1:6;
        then sin.(r1+2*PI) < sin.(r2+2*PI*1) by A2,A3,RFUNCT_2:20;
        then sin.(r1+2*PI*1) < sin.r2 by Th8;
        hence sin.r1 < sin.r2 by Th8;
      end;
      hence thesis by RFUNCT_2:20;
    end;
    set Y = [.-PI/2+T(i+1),PI/2+T(i+1).];
A4: Z = [.-PI/2+T(i+1-1),PI/2+T(i+1-1).];
    now
      let r1, r2;
      assume r1 in Y /\ dom sin & r2 in Y /\ dom sin;
      then
A5:   r1-2*PI in Z /\ dom sin & r2-2*PI in Z /\ dom sin by A4,Lm14,SIN_COS:24;
      assume r1 < r2;
      then r1-2*PI < r2-2*PI by XREAL_1:9;
      then sin.(r1-2*PI) < sin.(r2+2*PI*(-1)) by A2,A5,RFUNCT_2:20;
      then sin.(r1+2*PI*(-1)) < sin.r2 by Th8;
      hence sin.r1 < sin.r2 by Th8;
    end;
    hence thesis by RFUNCT_2:20;
  end;
A6: P[0] by COMPTRIG:23;
  for i holds P[i] from INT_1:sch 4(A6,A1);
  hence thesis;
end;
