proposition: Proposition transportf_enriched_arr_r {V : monoidal_cat} {C : category} (E : enrichment C V) (x : C) {y₁ y₂ : C} (p : y₁ = y₂) (f : I_{ V} --> E ⦃ x , y₁ ⦄) : transportf (λ (y : C), I_{V} --> E ⦃ x , y ⦄) p f = enriched_from_arr E (enriched_to_arr E f · idtoiso p).
proof: Proof. induction p ; cbn. rewrite id_right. 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