(** * Addendum to the standard library of Coq *)
Require Export Omega.
Global Obligation Tactic := idtac.
Notation "[ x ; .. ; y ]" := (cons x .. (cons y nil) .. ).

Lemma In_hd (A : Type)(d:A)(l : list A)(n : nat)(H : length l = S n) :
In (hd d l) l.