End VerifAppend1.
Module VerifAppend2.
Definition append2_spec := append_spec _append2.
Definition Gprog : funspecs :=
ltac:(with_library prog [ append2_spec ]).

(* Specifications: *)
Lemma data_at__Tsh_wand_frame_intro: forall {CS: compspecs} sh t p,
writable_share sh ->
data_at_ Tsh t p |-- data_at_ sh t p *
ALL v: reptype t, data_at sh t v p -* data_at Tsh t v p.
Lemma body_append2: semax_body Vprog Gprog f_append2 append2_spec.
End VerifAppend2.