[Haskell-cafe] adjoint of coproduct & diagonal