Semigroup.For
module S : Preface_specs.SEMIGROUP
val semigroup_1 : unit -> (S.t, S.t -> S.t -> S.t) Law.t