all v i s , is_int i s v -> exists n, v = Vint n /\ is_int i s v.
Proof.
intros.Definition name (id: ident) := True.

Tactic Notation "name" ident(s) constr(id) :=
    assert (s: name id) by apply Coq.Init.Logic.I.

Definition reflect_temps_f (rho: environ) (b: Prop) (i: ident

(* Specifications: *)
Definition reflect_temps (Delta: tycontext) (rho: environ) : Prop := PTree.fold (reflect_temps_f rho) (temp_types Del