proposition: Lemma right_identity (s d : object) (m : morphism s d) : compose m (identity _) = m.
proof: Proof. refine (@path_morphism' _ A B S T _ _ (compose m (identity _)) m (Category.Core.right_identity _ _ _ _) (Category.Core.right_identity _ _ _ _) _). simpl. refine right_identity_helper. - exact (p_right_identity_of_coherent_for_rewrite _ _ _ _). - exact (p_right_identity_of_coherent_inverse_for_rewrite _ _ _ _). Defined.
imports: Functor.Core NaturalTransformation.Core Category.Strict Functor.Composition.Core NaturalTransformation.Paths NaturalTransformation.Composition.Core Category.Morphisms FunctorCategory.Core Pseudofunctor.Core Pseudofunctor.RewriteLaws NaturalTransformation.Composition.Laws FunctorCategory.Morphisms HoTT.Tactics