theorem
  a |^ 2 * H c= (a * H) * (a * H)
proof
  a |^ 2 * H = a * a * H by GROUP_1:27;
  hence thesis by Th116;
end;
