Definition functor_op_enrichment (V : sym_monoidal_cat) {C₁ C₂ : category} {F : C₁ ⟶ C₂} {E₁ : enrichment C₁ V} {E₂ : enrichment C₂ V} (EF : functor_enrichment F E₁ E₂) : functor_enrichment (functor_op F) (op_enrichment V E₁) (op_enrichment V E₂). Proof. refine ((λ x y, EF y x) ,, _). repeat split. - abstract (cbn ; intro x ; exact (functor_enrichment_id EF x)). - abstract (cbn ; intros x y z ; rewrite !assoc' ; rewrite (functor_enrichment_comp EF z y x) ; rewrite !assoc ; apply maponpaths_2 ; rewrite tensor_sym_mon_braiding ; apply idpath). - abstract (cbn ; intros x y f ; apply functor_enrichment_from_arr). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.Univalence. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.opp_precat. Require Import UniMath.CategoryTheory.OppositeCategory.Core. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentTransformation. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Structure.Symmetric. Import MonoidalNotations.