Proposition lmap_const_profunctor {x : C} {y₁ y₂ : D} (f : y₂ --> y₁) (h : X) : lmap const_profunctor f (h : const_profunctor y₁ x) = h. Proof. cbn. 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.