fold_lift in H.
  destruct H; subst.
  unfold_lift. rewrite eval_id_other in * by auto.
  auto.
Qed.

Fixpoint iota_formals (i: ident) (tl: typelist) :=
 match tl with
 | Tcons t tl' => (i,t) :: iota_formals (i+1)%positive tl'
 | Tnil => nil
 end.

Ltac m

(* Specifications: *)
| |- @semax _ _ _ _ _ (normal_ret_assert _) => idtac | |- _ => apply sequential end.
apply X. destruct p; inv H; apply Coq.Init.Logic.I. Qed.
apply X. destruct p; inv H; apply Coq.Init.Logic.I. Qed.
Proof. intuition. apply X. apply ptr_eq_e; auto. Qed.
intuition. apply H, typed_false_of_bool; auto. Qed.