
theorem PI1:
  for a,b be positive Real holds [\a/]*[\b/] <= [\a/]*b <= a*b
  proof
    let a,b be positive Real;
    [\a/] <= a & [\b/] <= b by INT_1:def 6;
    hence thesis by XREAL_1:64;
  end;
