reserve a,b,c,d for Real;
reserve r,s for Real;

theorem
  0 < a implies a/3 < a
proof
  assume
A1: 0 < a;
  then
A2: a/3+a/3+0 < a/3+a/3+a/3 by Lm10;
  0+a/3 < a/3+a/3 by A1,Lm10;
  hence thesis by A2,XXREAL_0:2;
end;
