fact: Definition Build_Adjunction_natequiv_nat_right {C D : Type} (F : C -> D) (G : D -> C) `{Is1Cat C, Is1Cat D, !Is0Functor F, !Is0Functor G} (e : forall y, NatEquiv (A := C^op) (yon y o F) (yon (G y)) (is0functor_F := is0functor_compose (A:=C^op) (B:=D^op) (C:=Type) _ _)) (is1nat_e : forall x, Is1Natural (opyon (F x)) (opyon x o G) (fun y => e y x)) : Adjunction F G.
imports: Basics.Utf8 Basics.Overture Basics.Tactics Basics.Equivalences WildCat.Core WildCat.NatTrans WildCat.Equiv WildCat.Prod WildCat.Opposite WildCat.Yoneda WildCat.FunctorCat WildCat.Universe Types.Prod