theorem
  D*+^ = multMagma(#D*, D-concatenation#) by Def34;
