proposition: Proposition idtoiso_twosided_disp_concat {C₁ C₂ : category} {D : twosided_disp_cat C₁ C₂} {x : C₁} {y : C₂} {xy₁ xy₂ xy₃ : D x y} (p : xy₁ = xy₂) (q : xy₂ = xy₃) : pr1 (idtoiso_twosided_disp (idpath x) (idpath y) p) ;;2 pr1 (idtoiso_twosided_disp (idpath x) (idpath y) q) = transportb_disp_mor2 (id_left _) (id_left _) (pr1 (idtoiso_twosided_disp (idpath x) (idpath y) (p @ q))).
proof: Proof. induction p, q ; cbn. rewrite id_two_disp_left. apply idpath. Qed.
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.Core.Setcategories UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat UniMath.CategoryTheory.TwoSidedDisplayedCats.DisplayedFunctor UniMath.CategoryTheory.TwoSidedDisplayedCats.Isos UniMath.CategoryTheory.TwoSidedDisplayedCats.Univalence UniMath.CategoryTheory.TwoSidedDisplayedCats.Strictness