reserve T for TopSpace;
reserve A,B for Subset of T;
reserve T for non empty TopSpace;
reserve P,Q for Element of Topology_of T;
reserve p,q for Element of Open_setLatt(T);
reserve L for D_Lattice;
reserve F for Filter of L;
reserve a,b for Element of L;
reserve x,X,X1,X2,Y,Z for set;
reserve p,q for Element of StoneLatt(L);
reserve H for non trivial H_Lattice;
reserve p9,q9 for Element of H;

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