Preface_laws.Contravariant
module type LAWS = sig ... end
module For (C : Preface_specs.CONTRAVARIANT) : LAWS with type 'a t := 'a C.t