Hint Rewrite typed_true_isptr using apply Coq.Init.Logic.I : norm.
Ltac super_unfold_lift_in H :=
cbv delta [liftx LiftEnviron Tarrow Tend lift_S lift_T
lift_prod lift_last lifted lift_uncurry_open lift_curry lift lift0
lift1 lift2 lift3] beta iota in H.
Ltac super_unfold_lift' :=
cbv delta [liftx LiftEnviron Tarrow Tend lift_S lift_T
lift_prod lift_last lifted lift_uncurry_open lift_curry lift lift0
lift1 lift2 lift3] beta iota.

(* Specifications: *)
Lemma tc_eval'_id_i:
forall Delta t i rho,
tc_environ Delta rho ->
(temp_types Delta)!i = Some t ->
tc_val' t (eval_id i rho).
Lemma is_int_e:
forall v i s , is_int i s v -> exists n, v = Vint n /\ is_int i s v.