Preface_laws.Monoid
module type LAWS = sig ... end
module For (M : Preface_specs.MONOID) : LAWS with type t := M.t