t; auto.
eapply tc_eval'_id_i.
eassumption.Qed.

Definition abbreviate {A:Type} (x:A) := x.
Arguments abbreviate [A] [x].

Ltac clear_Delta :=
match goal with
| Delta := @abbreviate tycontext _ |- _ =>
   first [clear Delta | clearbody Delta]
| _ => idtac
end;
matchgoal with
 |  DS := @abbreviate (PTree.t funspec) _  |- _ =>
   first [clear DS | clearbody DS]
 | |- _ => idtac
 end.

Ltac

Qed. Hint Rewrite is_pointer_or_null_force_int_ptr2 using assumption : norm1. Lemma isptr_match : forall w0, is_pointer_or_null match match w0 with | Vint _ => if Archi.ptr64 then None else Some w0 | Vlong _ => if Archi.ptr64 then Some w0 else None | Vptr _ _ => Some w0 | _ => None end with