proposition: Lemma PairingWithObjectCommutesRight {C D : category} (H : functor C D) (I : C) : nat_z_iso (H ∙ pair_with_object_right (H I)) (pair_with_object_right I ∙ (pair_functor H H)).
proof: Proof. use make_nat_z_iso. - exists (λ _, identity (H _, H I)). abstract ( intro ; intros ; refine (id_right (# H f #, identity (H I)) @ _) ; refine (_ @ ! id_left (# H f #, # H (identity I))) ; apply maponpaths ; apply (! functor_id H _)). - intro. exists (identity _). abstract (split ; apply (id_right (identity (H _, H I)))). Defined.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.opp_precat