Lemma triangle_r_inv {X Y Z : C} (g : C ⟦ Y, Z ⟧) (f : C ⟦ X, Y ⟧) : linvunitor g ⋆⋆ id₂ f = rassociator _ _ _ o id₂ g ⋆⋆ rinvunitor f. Proof. use inv_cell_eq. - is_iso. - is_iso. - cbn. apply triangle_r. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Invertible_2cells. Require Import UniMath.Bicategories.Core.Unitors.