 reserve o,o1,o2 for object;
 reserve n for Ordinal;
 reserve R,L for non degenerated comRing;
 reserve b for bag of 1;

theorem Th39:
   for f be sequence of R holds NBag1.:(Support f) = Support (f*BagN1)
   proof
     let f be sequence of R;
     for o holds o in (NBag1).:(Support f) iff o in Support(f*BagN1)
     proof
       let o;
A1:    dom (NBag1) = NAT by FUNCT_2:def 1;
A2:    dom (f*BagN1) = Bags 1 by FUNCT_2:def 1;
A3:    o in NBag1.:(Support f) implies o in Support(f*BagN1)
       proof
         assume o in (NBag1).:(Support f); then
         consider x be object such that
A4:      x in dom (NBag1) & x in Support f & o = (NBag1).x by FUNCT_1:def 6;
A5:      o in Bags 1 by A4,FUNCT_2:5;
         (f*BagN1).o = ((f*BagN1)*(NBag1)).x by A4,FUNCT_2:15
         .= f.x by Th37; then
         (f*BagN1).o <> 0.R by A4,POLYNOM1:def 3;
         hence thesis by A5, A2,POLYNOM1:def 3;
       end;
       o in Support(f*BagN1) implies o in NBag1.:(Support f)
       proof
         assume
A6:      o in Support(f*BagN1); then
     reconsider b = (BagN1).o as Element of NAT by FUNCT_2:5;
A7:      dom f = NAT by FUNCT_2:def 1;
A8:      NBag1.b = (id(Bags 1)).o by A6,FUNCT_2:15,Th11 .= o by A6, FUNCT_1:18;
         f.b = (f*(BagN1)).o by A6,FUNCT_2:15; then
         f.b <> 0.R by A6,POLYNOM1:def 3; then
         b in Support f by A7,POLYNOM1:def 3;
         hence thesis by A1,A8,FUNCT_1:def 6;
       end;
       hence thesis by A3;
     end;
     hence thesis by TARSKI:2;
   end;
