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