theorem Th7:
  (x^2+y^2)/2>=x*y
proof
  (x^2+y^2)/2>=(2*x*y)/2 by Th6,XREAL_1:72;
  hence thesis;
end;
