∀ {C : Type u₁} {D : Type u₂} [inst : CategoryTheory.Category.{v₁, u₁} C] [inst_1 : CategoryTheory.Category.{v₂, u₂} D]
  {L₁ L₂ : CategoryTheory.Functor C D} {R₁ R₂ : CategoryTheory.Functor D C} (adj₁ : L₁ ⊣ R₁) (adj₂ : L₂ ⊣ R₂)
  (α : R₁ ⟶ R₂) (c : C),
  CategoryTheory.CategoryStruct.comp (adj₁.unit.app c) (α.app (L₁.obj c)) =
    CategoryTheory.CategoryStruct.comp (adj₂.unit.app c)
      (R₂.map (((CategoryTheory.conjugateEquiv adj₁ adj₂).symm α).app c))