Parameter Profunctor.1-P

type ('a, 'b) t
val dimap : ('a -> 'b) -> ('c -> 'd) -> ('b, 'c) t -> ('a, 'd) t