reserve A for non degenerated comRing;
reserve R for non degenerated domRing;
reserve n for non empty Ordinal;
reserve o,o1,o2 for object;
reserve X,Y for Subset of Funcs(n,[#]R);
reserve S,T for Subset of Polynom-Ring(n,R);
reserve F,G for FinSequence of the carrier of Polynom-Ring(n,R);
reserve x for Function of n,R;

theorem Th10:
    for n holds degree (EmptyBag n) = 0
    proof
      let n;
      set b = EmptyBag n;
A1:   b*canFS(support b) = <*>NAT;
      b*canFS(support b) = <*>REAL; then
      reconsider f = b*canFS(support b) as FinSequence of REAL;
      consider f being FinSequence of NAT such that
A2:   0 = Sum f & f = b*canFS(support b) by RVSUM_1:72,A1;
      thus thesis by A2,UPROOTS:def 4;
    end;
