revert H0; simple_if_tac; intro H0; inv H0.
Qed.

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.

destruct (H i t H0) as [v [? ?]]. unfold eval_id. simpl in *. rewrite H1. simpl; auto.