Proposition ase_postcomp {y z : C} (f1 f2 : x --> y) (h : y --> z) : f1 =_{p} f2 -> f1 · h =_{p} f2 · h. Proof. cbn. intros e. rewrite <- (id_left (identity x)). rewrite <- !pairing_tensor. rewrite !assoc. rewrite e. 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.MarkovCategories.MarkovCategory. Import MonoidalNotations.