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