fact: Definition BasePointComponent_weq {X:PointedType} (bc : isBaseConnected X) : BasePointComponent X ≃ X := make_weq (@basePointComponent_inclusion X) (BasePointComponent_isweq bc).
imports: UniMath.MoreFoundations.Notations UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.DecidablePropositions