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