Definition map {A B : UU} (f : A -> B) : list A -> list B := foldr (λ a l, cons (f a) l) nil.
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.Vectors.