Definition isfinitecompl {X : UU} (x : X) (sx : isfinite X) : isfinite (compl X x) := hinhfun (finstructoncompl x) sx.
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.DecidablePropositions. Require Import UniMath.MoreFoundations.NegativePropositions. Require Import UniMath.MoreFoundations.Subtypes.