proposition: Proposition profunctor_square_lmap {C₁ C₂ D₁ D₂ : category} {F : C₁ ⟶ C₂} {G : D₁ ⟶ D₂} {P : D₁ ↛ C₁} {Q : D₂ ↛ C₂} (τ : profunctor_square F G P Q) {y₁ y₂ : C₁} {x : D₁} (g : y₂ --> y₁) (h : P y₁ x) : τ y₂ x (lmap P g h) = lmap Q (#F g) (τ y₁ x h).
proof: Proof. pose (eqtohomot (pr2 τ (y₁ ,, x) (y₂ ,, x) (g ,, identity _)) h) as p. cbn in p. rewrite functor_id in p. rewrite rmap_id in p. exact p. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.Categories.HSET.All UniMath.CategoryTheory.Categories.HSET.SetCoends UniMath.CategoryTheory.Profunctors.Core UniMath.CategoryTheory.Profunctors.Examples UniMath.CategoryTheory.Profunctors.Transformation