 reserve n,i,k,m for Nat;
 reserve p for Prime;

theorem
  for A being finite Subset of SetPrimes st A = {} holds
    A-bag = EmptyBag SetPrimes
  proof
    let A be finite Subset of SetPrimes;
    assume A = {}; then
    support (A-bag) = {} by BagSupport;
    hence thesis by PRE_POLY:81;
  end;
