{B : Type u} →
  [inst : CategoryTheory.Bicategory B] →
    {b c d : B} →
      {l : b ⟶ c} →
        {r : c ⟶ b} →
          CategoryTheory.Bicategory.Adjunction l r →
            {g : b ⟶ d} →
              {h : c ⟶ d} → (g ⟶ CategoryTheory.CategoryStruct.comp l h) ≃ (CategoryTheory.CategoryStruct.comp r g ⟶ h)