Definition head {A: UU}: list A → maybe A. Proof. apply list_ind. - exact nothing. - exact (λ x xs IH, ii1 x). Defined.
Require Import UniMath.Foundations.NaturalNumbers. Require Import UniMath.Combinatorics.Vectors.