Preface_laws.Bounded_lattice
module type LAWS = sig ... end
module For (L : Preface_specs.BOUNDED_LATTICE) : LAWS with type t := L.t