Proposition is_right_extension_extend_right {k : y --> z} (θ : g · k ==> f) : (g ◃ is_right_extension_extend θ) • τ = θ. Proof. exact (homotweqinvweq (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.