Proposition copy_I_mon_rinvunitor : copy (I_{C}) = mon_rinvunitor (I_{C}). Proof. use cancel_z_iso. - apply I_{C}. - use make_z_iso. + apply mon_runitor. + apply mon_rinvunitor. + split. * apply mon_runitor_rinvunitor. * apply mon_rinvunitor_runitor. - cbn. apply markov_category_unit_eq. 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.