Parameter Contravariant.1-C

type 'a t
val cmap : ('b -> 'a) -> 'a t -> 'b t