proposition: Proposition transportf_enriched_arr_l {V : monoidal_cat} {C : category} (E : enrichment C V) {x₁ x₂ : C} (p : x₁ = x₂) (y : C) (f : I_{V} --> E ⦃ x₁ , y ⦄) : transportf (λ (x : C), I_{V} --> E ⦃ x , y ⦄) p f = enriched_from_arr E (idtoiso (!p) · enriched_to_arr E f).
proof: Proof. induction p ; cbn. rewrite id_left. rewrite enriched_from_to_arr. apply idpath. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.covyoneda UniMath.CategoryTheory.Categories.HSET.All UniMath.CategoryTheory.Monoidal.Categories