proposition: Proposition lunitor_profunctor_nat_trans_mor_comm {C₁ C₂ : category} (P : profunctor C₁ C₂) {y : C₂} {x x' : C₁} (f : x' --> x) (h : P y x') : lunitor_profunctor_nat_trans_mor P y x (comp_profunctor_ob_in (id_profunctor C₁) P x' f h) = rmap P f h.
proof: Proof. unfold lunitor_profunctor_nat_trans_mor. 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