Definition hor_trans_id_left_sq {C : predoublecategory_sq_hor_data} { a b c d : C } {f: a -h-> b} {g: a -v-> c} {h: b -v-> d} {k: c -h-> d} (α: sqq f g h k) : sqq ((hor_identity a) ·h f) g h ((hor_identity c) ·h k ) := boundary_sq_transport (id_hor_left f) (id_hor_left k) α.
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.