[Haskell-cafe] Lattice and calculation of Least Upper Bounds