Local Open Scope nat.
Local Open Scope logic.

(* Lemma splice_into_list_simplify1: forall lo hi src tgt, lo = Zlength tgt -> (hi-lo = Zlength src)%Z -> splice_into_list lo hi src tgt = tgt++src.  Lemma splice_into_list_simplify2: forall lo hi src tgt, lo = Zlength tgt -> (lo <= hi)%Z -> (hi-lo <= Zlength src)%Z -> splice_into_list lo hi hi src tgt = tgt++ sublist 0 (hi-lo) src. *)
Lemma JMeq_skipn:
forall ta tb n (la: list ta) (lb: list tb),
ta=tb ->
JMeq la lb ->
JMeq (skipn n la) (skipn n lb).