theorem
  StoneH(H) preserves_bottom
proof
  StoneH(H).(Bottom H) = {} by Th29
    .= Bottom (Open_setLatt(HTopSpace H)) by Th8;
  hence thesis;
end;
