(* Lemmas that DO NOT depend on CompCert or Verifiable C *)
Definition Vector_0_is_nil (T : Type) (v : Vector.t T 0) : v = Vector.nil T :=
match v with Vector.nil => eq_refl end.
intros. inversion H; split; trivial. Qed.
*)

Lemma length_not_emp :
forall {A B : Type} (l : list A) (z y : B),
(Datatypes.length l > 0)%nat -> match l with [] => z | _ => y end = y.