Preface_laws.Bind
module type LAWS = sig ... end
module For (B : Preface_specs.BIND) : LAWS with type 'a t := 'a B.t