 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 Lm9:
  for r be Real st r in [.0,1.[ holds
    ex i be Nat st i <= t-1 & [\ r*t /] = i
  proof
    let r be Real;
    assume r in [.0,1.[; then
    consider i be Nat such that
A2: i <= t-1 and
A3: r in (Equal_Div_interval(t)).i by Lm7;
    thus thesis by A2,Lm8,A3;
end;
