fact: Definition nat_trans_data_post_whisker_snd_param {B C D P: category} {G H : B ⟶ C} (γ : G ⟹ H) (K : (C × P) ⟶ D): nat_trans_data (functor_composite (pair_functor G (functor_identity _)) K) (functor_composite (pair_functor H (functor_identity _)) K) := λ bp : B × P, #K ((γ (ob1 bp),, identity (ob2 bp)): (C × P)⟦G(ob1 bp),, ob2 bp, H(ob1 bp),, ob2 bp⟧).
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