theorem
  mlt(<*a1*>,<*a2*>) = <*a1*a2*> by FINSEQ_2:74;
