fact: Definition zig__of__adjunction_unit (A : AdjunctionUnit F G) (Y : C) (eta := A.1) (eps := fun X => (@center _ (A.2 (G X) X 1)).1) : G _1 (eps (F Y) o F _1 (eta Y)) o eta Y = eta Y -> eps (F Y) o F _1 (eta Y) = 1.
imports: Category.Core Functor.Core NaturalTransformation.Core Adjoint.UnitCounit Adjoint.Dual Functor.Composition.Core Functor.Identity HoTT.Tactics Basics.Trunc Types.Sigma Basics.Tactics