proposition: Proposition associator_profunctor_nat_trans_mor_ob_comm {C₁ C₂ C₃ C₄ : category} (P₁ : C₁ ↛ C₂) (P₂ : C₂ ↛ C₃) (P₃ : C₃ ↛ C₄) {z : C₄} {w : C₁} {x : C₂} {y : C₃} (h : P₁ x w) (k : P₂ y x) (l : P₃ z y) : associator_profunctor_nat_trans_mor_ob P₁ P₂ P₃ z w x h (comp_profunctor_ob_in P₂ P₃ y k l) = comp_profunctor_ob_in (comp_profunctor P₁ P₂) P₃ y (comp_profunctor_ob_in P₁ P₂ x h k) l.
proof: Proof. unfold associator_profunctor_nat_trans_mor_ob. rewrite from_comp_profunctor_ob_comm. apply idpath. 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