theorem
  Product (<*r*>^F) = r * Product F
proof
  thus Product (<*r*>^F) = Product <*r*> * Product F by Th97
    .= r * Product F;
end;
