
theorem FRAC:
  for a,b,c be positive Real holds (a+b+c)/(a+b) < (a+c)/a
  proof
    let a,b,c be positive Real;
    (a+b)*(a+c) > (a+b+c)*a by FPC;
    hence thesis by XREAL_1:106;
  end;
