Preface_laws.Profunctor
module type LAWS = sig ... end
module For (P : Preface_specs.PROFUNCTOR) : LAWS with type ('a, 'b) t := ('a, 'b) P.t