Definition internal_swap_arg (v₁ v₂ w : V) : v₁ ⊸ w ⊸ v₂ --> w ⊸ v₁ ⊸ v₂ := internal_lam (internal_lam (mon_lassociator _ _ _ · identity _ #⊗ sym_mon_braiding _ _ _ · mon_rassociator _ _ _ · internal_eval _ _ #⊗ identity _ · internal_eval _ _)).
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.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.FunctorCategory. Require Import UniMath.CategoryTheory.Adjunctions.Core. Require Import UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Structure.Symmetric. Import MonoidalNotations.