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

theorem BagValue:
  for A being finite Subset of SetPrimes
  for i being object st i in support (A-bag) holds
    (A-bag).i = i
  proof
    let A be finite Subset of SetPrimes;
    let i be object;
    assume aa: i in support (A-bag); then
A2: i in A by BagSupport;
A1: i in dom id A by aa,BagSupport;
    (A-bag).i = (id A).i by A1,FUNCT_4:13
       .= i by A2,FUNCT_1:17;
    hence thesis;
  end;
