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

theorem Th37:
   for f be sequence of the carrier of R holds f = (f*(BagN1))*NBag1
   proof
     let f be sequence of the carrier of R;
     (f*(BagN1))*NBag1 = f*(id(NAT)) by Th10,RELAT_1:36 .= f by FUNCT_2:17;
     hence thesis;
   end;
