Definition kfinstruct_contr {X : UU} (contr : iscontr X) : kfinstruct X. Proof. use(make_kfinstruct 1). - exact(λ _, iscontrpr1 contr). - apply issurjective_to_contr, contr. exact(● 0). 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.