Definition fincard_subset {X : UU} (fx : isfinite X) (P : DecidableSubtype X) : nat := fincard (subsetFiniteness fx P).
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.DecidablePropositions. Require Import UniMath.MoreFoundations.NegativePropositions. Require Import UniMath.MoreFoundations.Subtypes.