Lemma lunitor_lwhisker_CAT {A B C : category} (F : [A, B]) (G : [B, C]) : rassociator_CAT F (id1_CAT B) G · (lwhisker_CAT F (lunitor_CAT G)) = rwhisker_CAT G (runitor_CAT F). Proof. apply (nat_trans_eq C); intro c. cbn. rewrite id_left. apply pathsinv0, functor_id. Qed.
Require Import UniMath.Foundations.PartD. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.FunctorCategory. Require Import UniMath.CategoryTheory.whiskering.