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

Lemma map_seq_nth_safe : forall A B (l : list A) (g : A -> B) d m,
map (fun n => g (nth (n - m) l d)) (seq m (length l)) = map g l.