Preface_laws.Semigroupoid
module type LAWS = sig ... end
module For (S : Preface_specs.SEMIGROUPOID) : LAWS with type ('a, 'b) t := ('a, 'b) S.t