Definition make_kfinite_subtype {X : UU} (A : hsubtype X) (finite_carrier : iskfinite (carrier A)) : kfinite_subtype X := (A ,, finite_carrier).
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.