Hint Resolve field_compatible0_ArraySubsc0 : field_compatible.
Hint Extern 2 (legal_nested_field0 _ _) =>
(apply compute_legal_nested_field0_spec'; repeat constructor; omega) : field_compatible.
Hint Extern 2 (field_compatible0 _ _ (offset_val _ _)) =>
(apply field_compatible0_nested_field_array; auto with field_compatible).

Lemma field_compatible0_Tarray_offset:
forall {cs: compspecs} t n i n' i' p p',
field_compatible0 (Tarray t n' noattr) (ArraySubsc i' :: nil) p ->
naturally_aligned t ->
0 <= n <= n' ->
0 <= i <= n ->
n-i <= n'-i' ->
i <= i' ->
p' = offset_val (sizeof t * (i'-i)) p ->
field_compatible0 (Tarray t n noattr) (ArraySubsc i :: nil) p'.