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_exit:
tcret_proof tvoid (rmaps.ConstType unit)
(fun (_ : list Type) (_ : unit) => PROP (False)  LOCAL ()  SEP ()).