Lemma el_vcons_hd {n} (v : vec A n) (x : A) : el (x ::: v) (firstelement) = x. Proof. reflexivity. Defined.
Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Foundations.NaturalNumbers.