proposition: Proposition inv_profunctor_nat_trans_right {C₁ C₂ : category} {P Q : profunctor C₁ C₂} {τ : profunctor_nat_trans P Q} (Hτ : is_profunctor_nat_iso τ) : profunctor_nat_trans_comp τ (inv_profunctor_nat_trans Hτ) = profunctor_nat_trans_id _.
proof: Proof. use eq_profunctor_nat_trans. intros y x h ; cbn. apply homotinvweqweq. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.opp_precat UniMath.CategoryTheory.Categories.HSET.All UniMath.CategoryTheory.Categories.HSET.SetCoends UniMath.CategoryTheory.Profunctors.Core UniMath.CategoryTheory.Profunctors.Examples