fact: Definition adjunction_unit__op__adjunction_counit__inv (A : AdjunctionCounit G F) : AdjunctionUnit F^op G^op := exist (fun T : NaturalTransformation 1 (G^op o F^op) => forall (c : C^op) (d : D^op) (f : morphism C^op c ((G^op)%functor d)), Contr {g : morphism D^op ((F^op)%functor c) d | G^op _1 g o T c = f }) (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