proposition: Proposition lmap_precomp_profunctor {x : C₁} {y₁ y₂ : D₁} (f : y₂ --> y₁) (h : P (G y₁) (F x)) : lmap precomp_profunctor f h = lmap P (#G f) h.
proof: Proof. cbn. rewrite functor_id. rewrite rmap_id. 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