Definition concatenate {X} : list X -> list X -> list X := λ r s, foldr cons s r.
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.Vectors.