Definition cons (x : A) (xs : list) : list := (S (pr1 xs),, vcons x xs).
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.Vectors.