proposition: Lemma is_invertible_2cell_comma_ump_cell_right : is_invertible_2cell_comma_ump_cell_inv • comma_ump_cell Hp φ ψ α β r = id₂ _.
proof: Proof. use (comma_ump_eq Hp). - apply id2. - apply id2. - rewrite !id2_rwhisker, !id2_right. rewrite lassociator_rassociator, id2_left. rewrite vassocl. rewrite lassociator_rassociator. apply id2_right. - unfold is_invertible_2cell_comma_ump_cell_inv. rewrite <- rwhisker_vcomp. rewrite !comma_ump_cell_pr1. apply vcomp_linv. - unfold is_invertible_2cell_comma_ump_cell_inv. rewrite <- rwhisker_vcomp. rewrite !comma_ump_cell_pr2. apply vcomp_linv. - apply id2_rwhisker. - apply id2_rwhisker. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Univalence