fact: Definition right_identity_of : @right_morphism_of C C 1 D D 1 F G A F G A 1 = ((right_identity_natural_transformation_2 _) o (left_identity_natural_transformation_1 _))%natural_transformation := ap (@NaturalTransformation.Dual.opposite _ _ _ _) (@left_identity_of _ _ _ F^op G^op A^op).
imports: Category.Core Functor.Core NaturalTransformation.Core Functor.Identity Functor.Composition.Core NaturalTransformation.Composition.Core NaturalTransformation.Composition.Laws NaturalTransformation.Identity NaturalTransformation.Paths Functor.Dual NaturalTransformation.Dual Adjoint.Core Adjoint.UnitCounit Adjoint.Dual Adjoint.Functorial.Parts HoTT.Tactics Basics.Tactics