Preface_laws.Applicative
module type LAWS = sig ... end
module For (A : Preface_specs.APPLICATIVE) : LAWS with type 'a t := 'a A.t