Lemma lunitor_lwhisker {a b c : C} (f : C⟦a, b⟧) (g : C⟦b, c⟧) : rassociator _ _ _ • (f ◃ lunitor g) = runitor f ▹ g. Proof. use lhs_left_invert_cell. { apply is_invertible_2cell_rassociator. } cbn. apply pathsinv0. apply runitor_rwhisker. Qed.
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.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.PrecategoryBinProduct.