fact: Definition isfinitecontr {X : UU} (contrx : iscontr X) : isfinite X := hinhpr (finstructoncontr contrx).
imports: UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.DecidablePropositions UniMath.MoreFoundations.NegativePropositions UniMath.Combinatorics.StandardFiniteSets UniMath.MoreFoundations.Subtypes