Hint Rewrite @sem_add_pi' using (solve [auto with norm ; rep_omega]) : norm.
(* Lemma offset_val_sem_add_pi: forall {CS: compspecs} ofs t0 si v i, match si with | Signed => Int.min_signed <= i <= Int.max_signed | Unsigned => 0 <= i <= Int.max_unsigned end -> offset_val ofs (force_val (sem_add_ptr_int t0 si v (Vint (Int.repr i)))) = offset_val ofs (offset_val (sizeof t0 * i) v). Hint Rewrite @offset_val_sem_add_pi using (solve [auto with norm ; rep_omega]) : norm. *)
Arguments field_type i m / .
Arguments nested_field_type {cs} t gfs / .
Ltac really_simplify A :=
let aa := fresh "aa" in
pose (aa := A); compute in aa; change A with aa; subst aa.

(* Specifications: *)
Lemma eq_rect_r_eq:
forall (U: Type) (p: U) Q x h,
@eq_rect_r U p Q x p h = x.
Lemma pair_congr: forall (A B: Type) (x x': A) (y y': B),
x=x' -> y=y' -> (x,y)=(x',y').