Proposition make_equal_almost_surely_r {a x y : C} (p : a --> x) (f g : x --> y) : p · ⟨identity _, f⟩ = p · ⟨identity _, g⟩ -> equal_almost_surely p f g. Proof. intros e. exact e. 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.