theorem
  Product(a*R1) = Product (i|->a) * Product R1
proof
  thus Product(a*R1) = Product mlt(i|->a,R1) by Th66
    .= Product (i|->a) * Product R1 by Th86;
end;
