Function.CONTRAVARIANT_F
T : Interface.TYPE
type 'a t
= 'a -> T.t
val cmap : ('b -> 'a) -> 'a t -> 'b t