Definition fsig_of_funspec (fs: funspec)  :=
  match fs with mk_funspec fsig _ _ _ _ _ _=> fsig end.

Lemma part3_splice_into_list: forall {A} lo hi n (al bl: list A), (0 <= lo <= hi)%Z -> (hi <= n)%Z -> (Zlength bl = n)%Z -> (Zlength al = hi-lo)%Z -> sublist hi n (splice_into_list lo hi al bl) = sublist hi n bl.