fact: Definition identity C : @Adjunction C C 1 1 := @Build_AdjunctionUnitCounit C C 1 1 1 1 (fun _ => identity_identity _ _) (fun _ => identity_identity _ _).
imports: Category.Core Functor.Identity NaturalTransformation.Identity Adjoint.UnitCounit Adjoint.Core