Module LvalMapDomain

module M = Messages
exception Unknown
exception Error
module type S = sig ... end
module Value (Impl : sig ... end) : S with type s = Impl.s
module Domain (V : S) : sig ... end