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