Proposition lmap_representable_profunctor_right {x : C₂} {y₁ y₂ : C₁} (g : y₂ --> y₁) (h : F y₁ --> x) : lmap representable_profunctor_right g h = #F g · h. Proof. cbn. rewrite id_right. apply idpath. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.Categories.HSET.All. Require Import UniMath.CategoryTheory.Categories.HSET.SetCoends. Require Import UniMath.CategoryTheory.Profunctors.Core.