(* Specifications: *)
Lemma seq_peel_begin: forall (n l: nat) (LPOS: l > 0), n :: seq (S n) (l - 1) = seq n l.
Lemma cons_append: forall {A: Type} (a: A) (l l': list A), (cons a l) ++ l' = cons a (l ++ l').
Lemma seq_peel_end: forall (n l: nat) (L_GT_0: l > 0), seq n l = (seq n (l - 1)) ++ [ n + l - 1].