Hint Extern 2 (field_compatible0 _ (ArraySubsc _ :: _) _) =>
(eapply field_compatible0_cons_Tarray; [reflexivity | | omega])
: field_compatible.
Hint Extern 2 (field_compatible _ (ArraySubsc _ :: _) _) =>
(eapply field_compatible_cons_Tarray; [reflexivity | | omega])
: field_compatible.

Lemma field_compatible_array_smaller0:
forall {cs: compspecs} t n n' d,
field_compatible (Tarray t n' noattr) nil d ->
0 <= n <= n' ->
field_compatible (Tarray t n noattr) nil d.