proposition: 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: Proof. unfold whisker_right. etrans; [ apply pathsinv0, associator_naturality | idtac]. apply maponpaths_2, maponpaths. exact horizontal_comp_id. Defined.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.HorizontalComposition UniMath.Bicategories.WkCatEnrichment.prebicategory UniMath.Bicategories.WkCatEnrichment.whiskering UniMath.Bicategories.Core.Bicat UniMath.Bicategories.WkCatEnrichment.Notations