Comonad instance for "FlipT (,) a"