proposition: Lemma whisker_right_id_1mor {C : prebicategory} {a b : C} {f g : a -1-> b} (alpha : f -2-> g) : whisker_right alpha (identity1 _) = right_unitor _ ;v; alpha ;v; inv_from_z_iso (right_unitor _).
proof: Proof. unfold whisker_right. apply id_2mor_right. Defined.
imports: UniMath.Foundations.PartD UniMath.MoreFoundations.Tactics UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.Categories.StandardCategories UniMath.CategoryTheory.HorizontalComposition UniMath.CategoryTheory.Equivalences.Core UniMath.Bicategories.WkCatEnrichment.prebicategory UniMath.Bicategories.WkCatEnrichment.Notations