fact: Definition comp_diag_dr_corner {B : verity_double_bicat} {x y z : B} {v₁ : x -|-> y} {v₂ : y -|-> z} {h₁ : x --> y} {h₂ : y --> z} (s₁ : square_double_bicat h₁ (id_h y) v₁ (id_v y)) (s₂ : square_double_bicat h₂ (id_h z) v₂ (id_v z)) : square_double_bicat (h₁ · h₂) (id_h z) (v₁ · v₂) (id_v z) := lunitor _ ▹s (lunitor _ ▿s ((s₁ ⋆h id_v_square_bicat h₂) ⋆v (id_h_square_bicat v₂ ⋆h s₂))).
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat UniMath.CategoryTheory.TwoSidedDisplayedCats.Isos UniMath.CategoryTheory.TwoSidedDisplayedCats.Univalence UniMath.CategoryTheory.TwoSidedDisplayedCats.Discrete UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Core.Unitors UniMath.Bicategories.DoubleCategories.DoubleBicat.VerityDoubleBicat