fact: Definition fill {A: UU} (a: A): nat → list A := λ n, n ,, vec_fill a n.
imports: UniMath.Foundations.NaturalNumbers UniMath.Combinatorics.Vectors UniMath.Combinatorics.Lists UniMath.Combinatorics.DecSet UniMath.Combinatorics.Maybe