Definition finstructoncontr {X : UU} (xcontr : iscontr X) : finstruct X := make_finstruct X (nelstructoncontr xcontr).
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.DecidablePropositions. Require Import UniMath.MoreFoundations.NegativePropositions. Require Import UniMath.MoreFoundations.Subtypes.