fact: Record AdjunctionHom := { mate_of : @NaturalIsomorphism H (Category.Prod.prod (Category.Dual.opposite C) D) (@Core.set_cat H) (@compose (Category.Prod.prod (Category.Dual.opposite C) D) (Category.Prod.prod (Category.Dual.opposite D) D) (@Core.set_cat H) (@hom_functor H D) (@pair (Category.Dual.opposite C) (Category.Dual.opposite D) D D (@opposite C D F) (identity D))) (@compose (Category.Prod.prod (Category.Dual.opposite C) D) (Category.Prod.prod (Category.Dual.opposite C) C) (@Core.set_cat H) (@hom_functor H C) (@pair (Category.Dual.opposite C) (Category.Dual.opposite C) D C (identity (Category.Dual.opposite C)) G)) }.
imports: Category.Core Functor.Core Adjoint.UnitCounit Functor.Dual Functor.Prod.Core HomFunctor Functor.Composition.Core FunctorCategory.Morphisms Functor.Identity