fact: Definition Build_Adjunction' (adj : forall x y, @Isomorphism Sets {| carrier := @hom C (F x) y; is_setoid := @homset C (F x) y |} {| carrier := @hom D x (U y); is_setoid := @homset D x (U y) |}) (to_adj_nat_l : forall x y z (f : F y ~> z) (g : x ~> y), (to (adj _ _) (f ∘ fmap[F] g) ≈ (to (adj _ _) f) ∘ g)) (to_adj_nat_r : forall x y z (f : y ~> z) (g : F x ~> y), (to (adj _ _) (f ∘ g) ≈ fmap[U] f ∘ (to (adj _ _) g))) : Adjunction.
imports: Category.Lib Category.Theory.Category Category.Theory.Morphisms Category.Theory.Isomorphism Category.Theory.Functor Category.Instance.Sets