reserve s1,s2,q1 for Real_Sequence;
reserve n for Element of NAT;
reserve a,b for Real;

theorem Th5:
  for A be real-bounded Subset of REAL holds 0 <= xvol A
proof
  let A be real-bounded Subset of REAL;
  per cases;
  suppose A <> {};
    then 0<= vol A by INTEGRA1:9;
    hence 0 <= xvol A by Def2;
  end;
  suppose A = {};
    hence 0 <= xvol A by Def2;
  end;
end;
