instance {Semigroup, Monoid} (Bag a) ?