Definition append {X} (x : X) (l : list X) : list X := l ++ x::[].
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.Vectors.