Definition rwhisker_profunctor_nat_trans {C₁ C₂ C₃ : category} {P₁ P₂ : C₁ ↛ C₂} (τ : profunctor_nat_trans P₁ P₂) (Q : C₂ ↛ C₃) : profunctor_nat_trans (comp_profunctor P₁ Q) (comp_profunctor P₂ Q). Proof. use make_profunctor_nat_trans. - exact (rwhisker_profunctor_nat_trans_mor τ Q). - exact (rwhisker_profunctor_nat_trans_law τ Q). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.FunctorCategory. Require Import UniMath.CategoryTheory.PrecategoryBinProduct. Require Import UniMath.CategoryTheory.opp_precat. Require Import UniMath.CategoryTheory.Categories.HSET.All. Require Import UniMath.CategoryTheory.Categories.HSET.SetCoends. Require Import UniMath.CategoryTheory.Profunctors.Core. Require Import UniMath.CategoryTheory.Profunctors.Examples.