Local Open Scope logic.
Instance CompSpecs : compspecs.
(* a list initialized with 0 except its last i elements *)
Definition list_zero_except (i : Z) (size : Z) : list val :=
(list_repeat (Z.to_nat (size-i)) (Vint Int.zero)) ++ (list_repeat (Z.to_nat i) Vundef).

(* should be in client_lemmas.v TODO floyd *)
Lemma typed_false_tuint:
forall v, typed_false tuint v -> v = nullval.