theorem Th59:
  the carrier of H |^ a = a" * H * a
proof
  thus the carrier of H |^ a = carr(H) |^ a by Def6
    .= a" * H * a by Th50;
end;
