theorem
  Product(<*a*>^p1) = a * Product p1
proof
  thus Product(<*a*>^p1) = Product <*a*> * Product p1 by GROUP_4:5
    .= a * Product p1 by FINSOP_1:11;
end;
