theorem
  i in dom mlt(p1,p2) & a1 = p1.i & a2 = p2.i implies
    mlt(p1,p2).i = a1 * a2 by FUNCOP_1:22;
