proposition: Proposition comp_profunctor_mor_comm {z₁ z₂ : C₃} (k : z₂ --> z₁) {x₁ x₂ : C₁} (f : x₁ --> x₂) {y : C₂} (h : P y x₁) (h' : Q z₁ y) : comp_profunctor_mor k f (comp_profunctor_ob_in _ h h') = comp_profunctor_ob_in y (rmap P f h) (lmap Q k h').
proof: Proof. unfold comp_profunctor_mor. rewrite from_comp_profunctor_ob_comm. apply idpath. Qed.
imports: UniMath.Foundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.Categories.HSET.All UniMath.CategoryTheory.Categories.HSET.SetCoends UniMath.CategoryTheory.Profunctors.Core