fact: Definition make_kfinite_subtype {X : UU} (A : hsubtype X) (finite_carrier : iskfinite (carrier A)) : kfinite_subtype X := (A ,, finite_carrier).
imports: UniMath.Foundations.Propositions UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Notations UniMath.Combinatorics.FiniteSets UniMath.Combinatorics.StandardFiniteSets UniMath.MoreFoundations.Subtypes UniMath.Combinatorics.KFiniteTypes