fact: Definition Build_Adjunction_natequiv_nat_left {C D : Type} (F : C -> D) (G : D -> C) `{Is1Cat C, Is1Cat D, !Is0Functor F, !Is0Functor G} (e : forall x, NatEquiv (opyon (F x)) (opyon x o G)) (is1nat_e : forall y, Is1Natural (A := C^op) (yon y o F) (is0functor_F := is0functor_compose (A:=C^op) (B:=D^op) (C:=Type) _ _) (yon (G y)) (fun x => e _ y)) : 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