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);

theorem
  L,StoneLatt L are_isomorphic
proof
  take StoneH(L);
  thus thesis;
end;
