fact: Definition adjunction_counit__op__adjunction_unit__inv (A : AdjunctionUnit G F) : AdjunctionCounit F^op G^op := exist (fun U : NaturalTransformation (F^op o G^op) 1 => forall (c : C^op) (d : D^op) (g : morphism D^op ((F^op)%functor c) d), Contr {f : morphism C^op c ((G^op)%functor d) | U d o F^op _1 f = g }) (A.1^op)%natural_transformation (fun c d g => A.2 d c g).
imports: Category.Core Functor.Core NaturalTransformation.Core Category.Dual Functor.Dual NaturalTransformation.Dual Functor.Composition.Core Functor.Identity