Definition op_enriched_unit (V : sym_monoidal_cat) {C : category} (E : enrichment C V) : functor_enrichment (functor_identity C) E (op_enrichment V (op_enrichment V E)). Proof. refine ((λ x y, identity _) ,, _). repeat split ; cbn. - abstract (intro x ; apply id_right). - abstract (intros x y z ; rewrite id_right ; rewrite tensor_id_id ; rewrite id_left ; rewrite !assoc ; rewrite sym_mon_braiding_inv ; rewrite id_left ; apply idpath). - abstract (intros x y f ; rewrite id_right ; apply idpath). 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.