fact: Definition AdjunctionCounit := { U : NaturalTransformation (F o G) 1 | forall (c : C) (d : D) (g : morphism D (F c) d), Contr { f : morphism C c (G d) | U d o F _1 f = g } }.
imports: Category.Core Functor.Core NaturalTransformation.Core Category.Dual Functor.Dual NaturalTransformation.Dual Functor.Composition.Core Functor.Identity