Proposition is_right_extension_extend_left {k : y --> z} (θ : k ==> h) : is_right_extension_extend ((g ◃ θ) • τ) = θ. Proof. exact (homotinvweqweq (make_weq _ (Hτ k)) θ). Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Examples.OpMorBicat. Require Import UniMath.Bicategories.Core.Examples.OpCellBicat.