 reserve i,j,k,m,n,m1,n1 for Nat;
 reserve a,r,r1,r2 for Real;
 reserve m0,cn,cd for Integer;
 reserve x1,x2,o for object;
 reserve t for 1_greater Nat;

theorem Lm2:
  [.0, (k+1)/t .[ \/ [. (k+1)/t, (k+2)/t .[ = [. 0, (k+2)/t .[
  proof
    0 <= (k+1)/t & (k+1)/t <= (k+2)/t
    proof
      k+1 <= (k+1) + 1 by XREAL_1:31;
      hence thesis by XREAL_1:64;
    end;
    hence thesis by XXREAL_1:168;
  end;
