Instance CompSpecs : compspecs. make_compspecs prog. Defined.
Definition Vprog : varspecs. mk_varspecs prog. Defined.
Definition tlist := Tstruct _list noattr.
Definition tpile := Tstruct _pile noattr.
Definition countrep (s: Z) (p: val) : mpred :=
EX s':Z, !! (0 <= s /\ 0 <= s' <= Int.max_signed /\
(s <= Int.max_signed -> s'=s)) &&
data_at Ews tpile (Vint (Int.repr s')) p.
Definition count_freeable (p: val) :=
malloc_token Ews tpile p.
Hint Resolve countrep_local_facts : saturate_local.

Lemma countrep_valid_pointer:
forall s p,
countrep s p |-- valid_pointer p.