Definition disp_1cell_transport_rwhisker {B : bicat} {D : disp_bicat B} {b₁ b₂ b₃ : B} {h : b₁ --> b₂} {f : b₂ --> b₃} {g : b₁ --> b₃} {α : h · f ==> g} {bb₁ : D b₁} {bb₂ : D b₂} {bb₃ : D b₃} (ff : bb₂ -->[ f ] bb₃) (gg : bb₁ -->[ g ] bb₃) {hh₁ hh₂ : bb₁ -->[ h] bb₂} (p : hh₁ = hh₂) (αα : hh₁ ;; ff ==>[ α] gg) : transportf (λ (z : bb₁ -->[ h ] bb₂), z ;; ff ==>[ α ] gg) p αα = transportf (λ z, _ ==>[ z ] _) (maponpaths (λ z, z • _) (id2_rwhisker _ _) @ id2_left _) ((disp_idtoiso_2_1 _ (idpath _) _ _ (!p) ▹▹ ff) •• αα).
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.DisplayedCats.Core. Require Import UniMath.CategoryTheory.DisplayedCats.Isos. Require Import UniMath.CategoryTheory.DisplayedCats.Univalence. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Unitors. Require Import UniMath.Bicategories.Morphisms.Adjunctions. Require Import UniMath.Bicategories.Core.AdjointUnique. Require Import UniMath.Bicategories.Core.Invertible_2cells. Require Import UniMath.Bicategories.DisplayedBicats.DispBicat. Import DispBicat.Notations.