Preface_laws.Closed
module type LAWS = sig ... end
module For (C : Preface_specs.CLOSED) : LAWS with type ('a, 'b) t := ('a, 'b) C.t