theorem
  a*R = mlt(i|->a,R) by Th66;
