WithMonadAndError.Bifunctor
type t('a, 'e)
= WithMonad.t('a, 'e)
let bimap: ('a => 'b) => ('c => 'd) => t('a, 'c) => t('b, 'd);