Instance CompSpecs : compspecs. make_compspecs prog. Defined.
Definition Vprog : varspecs. mk_varspecs prog. Defined.
Definition iden_spec :=
DECLARE _iden
WITH x : Z
PRE  [ _x OF tint ]
PROP ()
LOCAL (temp _x (Vint (Int.repr x)))
SEP ()
POST [ tint ]
PROP () LOCAL (temp ret_temp (Vint (Int.repr x)))
SEP ().
Definition Gprog : funspecs :=
ltac:(with_library prog [ iden_spec ]).

Lemma body_iden: semax_body Vprog Gprog f_iden iden_spec.