Ltac go_lower0 :=
intros ?rho;
try (simple apply grab_tc_environ; intro);
repeat (progress unfold_for_go_lower; simpl).
Ltac old_go_lower :=
go_lower0;
autorewrite with go_lower;
try findvars;
simpl;
autorewrite with go_lower;
try match goal with H: tc_environ _ ?rho |- _ => clear H rho end.
Hint Rewrite eval_id_same : go_lower.
Hint Rewrite eval_id_other using solve [clear; intro Hx; inversion Hx] : go_lower.
(*Hint Rewrite Vint_inj' : go_lower.*)
(*** New go_lower stuff ****)

Lemma lower_one_temp:
forall t rho Delta P i v Q R S,
(temp_types Delta) ! i = Some t ->
(tc_val t v -> eval_id i rho = v ->
(local (tc_environ Delta) && PROPx P (LOCALx Q (SEPx R))) rho |-- S) ->
(local (tc_environ Delta) && PROPx P (LOCALx (temp i v :: Q) (SEPx R))) rho |-- S.