fact: Record AdjunctionUnitCounit := { unit : NaturalTransformation (identity C) (G o F) ; counit : NaturalTransformation (F o G) (identity D) ; unit_counit_equation_1 : forall Y : C, Category.Core.compose (C := D) (s := F Y) (d := F (G (F Y))) (d' := F Y) (counit (F Y)) (F _1 (unit Y : morphism _ Y (G (F Y)))) = 1; unit_counit_equation_2 : forall X : D, Category.Core.compose (C := C) (s := G X) (d := G (F (G X))) (d' := G X) (G _1 (counit X : morphism _ (F (G X)) X)) (unit (G X)) = 1 }.
imports: Category.Core Functor.Core NaturalTransformation.Core Category.Dual Functor.Dual NaturalTransformation.Dual Functor.Composition.Core Functor.Identity