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