universe polymorphism for ordinary monads up to intial/final Kleisli/EM in cat of adjunctions proof