theorem
  a * H1 * H2 = a * (H1 * H2)
proof
  thus a * H1 * H2 = a * (carr H1 * H2) by GROUP_2:96
    .= a * (H1 * H2);
end;
