Preface_laws.Bifunctor
module type LAWS = sig ... end
module For (B : Preface_specs.BIFUNCTOR) : LAWS with type ('a, 'b) t := ('a, 'b) B.t