Proposition copy_del_r_ex (x : C) : copy x · (identity _ #⊗ del x) = mon_rinvunitor _. Proof. transitivity (copy x · (identity _ #⊗ del x) · (mon_runitor _ · mon_rinvunitor _)). { rewrite mon_runitor_rinvunitor, id_right. reflexivity. } rewrite assoc. rewrite copy_del_r. rewrite id_left. reflexivity. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.Limits.Terminal. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Structure.Cartesian. Require Import UniMath.CategoryTheory.Monoidal.Structure.Symmetric. Require Import UniMath.CategoryTheory.Monoidal.Structure.SymmetricDiagonal. Import MonoidalNotations.