Definition fundamental_groupoid_2cell_iso {x y : fundamental_bigroupoid} {p₁ p₂ : fundamental_bigroupoid⟦x,y⟧} (s : p₁ ==> p₂) : is_invertible_2cell s. Proof. refine (!s ,, _). split ; cbn. - apply pathsinv0r. - apply pathsinv0l. Defined.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Univalence. Require Import UniMath.Bicategories.Morphisms.Adjunctions. Require Import UniMath.Bicategories.Core.EquivToAdjequiv. Require Import UniMath.Bicategories.Core.AdjointUnique.