proposition: Lemma lift_1cell_factor_to_wk_lift_1cell_factor_path {B : bicat} {a b : B} (f : a --> b) {c : B} (h : c --> a) : id2_invertible_2cell (h · f) = rwhisker_of_invertible_2cell f (id2_invertible_2cell h).
proof: Proof. use subtypePath. { intro. apply isaprop_is_invertible_2cell. } exact (!(id2_rwhisker _ _)). Qed.
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.Core.NaturalTransformations UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Fibrations UniMath.CategoryTheory.DisplayedCats.Examples.Opposite UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Univalence UniMath.Bicategories.Core.Unitors UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Core.TransportLaws UniMath.Bicategories.Core.Examples.BicatOfUnivCats UniMath.CategoryTheory.DisplayedCats.Core UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.DispInvertibles UniMath.Bicategories.DisplayedBicats.DispUnivalence UniMath.Bicategories.DisplayedBicats.DispPseudofunctor UniMath.Bicategories.PseudoFunctors.Display.PseudoFunctorBicat UniMath.Bicategories.PseudoFunctors.Display.StrictPseudoFunctorBicat UniMath.Bicategories.PseudoFunctors.PseudoFunctor UniMath.Bicategories.PseudoFunctors.StrictPseudoFunctor UniMath.Bicategories.PseudoFunctors.Examples.StrictToPseudo UniMath.Bicategories.PseudoFunctors.Examples.Projection UniMath.Bicategories.PseudoFunctors.Examples.Identity UniMath.Bicategories.PseudoFunctors.Examples.Composition UniMath.Bicategories.DisplayedBicats.CleavingOfBicat