Definition kfinite_subtype_singleton {X : UU} (x : X) : kfinite_subtype X. Proof. use make_kfinite_subtype. - exact(singleton x). - exact(iskfinite_singleton x). Defined.
Require Import UniMath.Foundations.Propositions. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.MoreFoundations.Notations. Require Import UniMath.Combinatorics.FiniteSets. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.MoreFoundations.Subtypes. Require Import UniMath.Combinatorics.KFiniteTypes.