∀ {C : Type u_2} [inst : CategoryTheory.Category.{u_1, u_2} C] {D : Type u_4}
  [inst_1 : CategoryTheory.Category.{u_3, u_4} D] {L : CategoryTheory.Functor C D} {R : CategoryTheory.Functor D C}
  (h : L ⊣ R) (X : D),
  CategoryTheory.CategoryStruct.comp (h.toMonad.μ.app (R.obj X)) (R.map (h.counit.app X)) =
    CategoryTheory.CategoryStruct.comp (h.toMonad.map (R.map (h.counit.app X))) (R.map (h.counit.app X))