fact: Definition kfinstruct_dirprod {X Y : UU} : kfinstruct X -> kfinstruct Y -> kfinstruct (X × Y).
imports: UniMath.Foundations.Propositions UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Notations UniMath.Combinatorics.FiniteSets UniMath.Combinatorics.StandardFiniteSets