∀ {B : Type u} [inst : CategoryTheory.Bicategory B] {a b : B} {l : a ⟶ b} {r : b ⟶ a}
  (adj : CategoryTheory.Bicategory.Adjunction l r),
  (CategoryTheory.Bicategory.mateEquiv adj adj)
      (CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.leftUnitor l).hom
        (CategoryTheory.Bicategory.rightUnitor l).inv) =
    CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.rightUnitor r).hom
      (CategoryTheory.Bicategory.leftUnitor r).inv