Lemma whisker_right_right {C : prebicategory} {a b c d : C} (f g : a -1-> b) (h : b -1-> c) (i : c -1-> d) (x : f -2-> g) : associator_2mor f h i ;v; whisker_right (whisker_right x h) i = whisker_right x (h ;1; i) ;v; associator_2mor g h i. Proof. unfold whisker_right. etrans; [ apply pathsinv0, associator_naturality | idtac]. apply maponpaths_2, maponpaths. exact horizontal_comp_id. Defined.
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.Univalence. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.PrecategoryBinProduct. Require Import UniMath.CategoryTheory.HorizontalComposition. Require Import UniMath.Bicategories.WkCatEnrichment.prebicategory. Require Import UniMath.Bicategories.WkCatEnrichment.whiskering. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.WkCatEnrichment.Notations.