Require VST.floyd.library.
Parameter body_malloc:
forall {Espec: OracleKind} {cs: compspecs} ,
VST.floyd.library.body_lemma_of_funspec EF_malloc (snd malloc_spec').
Parameter body_free:
forall {Espec: OracleKind} {cs: compspecs} ,
VST.floyd.library.body_lemma_of_funspec EF_free (snd free_spec').
Parameter body_exit:
forall {Espec: OracleKind},
VST.floyd.library.body_lemma_of_funspec
(EF_external "exit"
{| sig_args := AST.Tint :: nil; sig_res := None; sig_cc := cc_default |})
(snd exit_spec).
Definition Gprog : funspecs :=
spec_stdlib.specs ++ spec_stdlib.ispecs.
Existing Instance NullExtension.Espec.

Lemma tcret_free:
tcret_proof tvoid (rmaps.ConstType (Z * val * globals))
(fun (_ : list Type) (x : Z * val * globals) =>
let (p0, gv) := x in
let (_, _) := p0 in PROP ( )  LOCAL ()  SEP (mem_mgr gv)).