Lemma arrow_mor_eq {C : category} {f g : arrow C} (γ γ' : f --> g) (H00 : arrow_mor00 γ = arrow_mor00 γ') (H11 : arrow_mor11 γ = arrow_mor11 γ') : γ = γ'. Proof. apply subtypePath; [intro; apply homset_property|]. apply pathsdirprod; assumption. Qed.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.PrecategoryBinProduct. Require Import UniMath.CategoryTheory.opp_precat. Require Import UniMath.CategoryTheory.DisplayedCats.Core. Require Import UniMath.CategoryTheory.DisplayedCats.SIP. Require Import UniMath.CategoryTheory.DisplayedCats.Total. Require Import UniMath.CategoryTheory.Limits.Graphs.Colimits.