Proposition enriched_curried_bifunctor_comp (x₁ x₂ x₃ : C₁) (y₁ y₂ y₃ : C₂) : inner_swap V (E₁ ⦃ x₂, x₃ ⦄) (E₂ ⦃ y₂, y₃ ⦄) (E₁ ⦃ x₁, x₂ ⦄) (E₂ ⦃ y₁, y₂ ⦄) · enriched_comp E₁ x₁ x₂ x₃ #⊗ enriched_comp E₂ y₁ y₂ y₃ · enriched_curried_bifunctor_mor F x₁ x₃ y₁ y₃ = enriched_curried_bifunctor_mor F x₂ x₃ y₂ y₃ #⊗ enriched_curried_bifunctor_mor F x₁ x₂ y₁ y₂ · enriched_comp E₃ (F x₁ y₁) (F x₂ y₂) (F x₃ y₃). Proof. exact (pr22 F x₁ x₂ x₃ y₁ y₂ y₃). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor. Require Import UniMath.CategoryTheory.EnrichedCats.Enriched.Enriched. Require Import UniMath.CategoryTheory.EnrichedCats.Enriched.EnrichmentEquiv. Require Import UniMath.CategoryTheory.EnrichedCats.Examples.Tensor. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors. Require Import UniMath.CategoryTheory.Monoidal.Structure.Symmetric. Require Import UniMath.CategoryTheory.Monoidal.Structure.SymmetricDiagonal. Import MonoidalNotations. Section FromBifunctor. End FromBifunctor.