Instance CompSpecs : compspecs.Definition Vprog : varspecs.Definition object_invariant := list Z -> val -> mpred.Definition tobject := tptr (Tstruct _object noattr).Definition foo_reset_spec :=
 DECLARE _foo_reset (reset_spec foo_invariant).Definition foo_twiddle_spec :=
 DECLARE _foo_twiddle  (twiddle_spec foo_invariant).

Lemma body_foo_twiddle: semax_body Vprog Gprog f_foo_twiddle foo_twiddle_spec.