Tuple.Bifunctor
type ('a, 'b) t
= 'a * 'b
val bimap : ('a -> 'b) -> ('c -> 'd) -> ('a, 'c) t -> ('b, 'd) t