Definition get_predoublecategory_interchange_id_hor {C : predoublecategory} {a b c: C} (f: a -h-> b) (g: b -h-> c) : ver_sq_identity(f ·h g) = (ver_sq_identity f) ·sqh (ver_sq_identity g) := (pr12 (pr222 (pr222 C))) a b c f g.
Require Import UniMath.Foundations.Propositions. Require Import UniMath.Foundations.Sets. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.MoreFoundations.Notations. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Univalence.