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