Definition isfinitecontr {X : UU} (contrx : iscontr X) : isfinite X := hinhpr (finstructoncontr contrx).
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.DecidablePropositions. Require Import UniMath.MoreFoundations.NegativePropositions. Require Import UniMath.MoreFoundations.Subtypes.