theorem
  for BL being non trivial B_Lattice ex T being non empty TopSpace st
  BL, OpenClosedSetLatt(T) are_isomorphic
proof
  let BL be non trivial B_Lattice;
  reconsider T = StoneSpace BL as non empty TopSpace;
  take T;
  OpenClosedSetLatt(T) = StoneBLattice BL;
  hence thesis by Th35;
end;
