Lemma map_cons {A B : UU} (f : A -> B) (x : A) (xs : list A) : map f (cons x xs) = cons (f x) (map f xs). Proof. apply idpath. Qed.
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.Vectors.