Module Lattices.Powersetwithunder

module type ELT = sig ... end
module Make (Elt : ELT) : sig ... end

Powerset with lower and upper approximations