Require VST.floyd.aggregate_pred. Import VST.floyd.aggregate_pred.aggregate_pred.
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.
Hint Extern 2 (field_compatible (Tarray _ _ _) nil _) =>
(eapply field_compatible_array_smaller0; [eassumption | omega]) : field_compatible.
Hint Extern 2 (field_compatible (tarray _ _) nil _) =>
(eapply field_compatible_array_smaller0; [eassumption | omega]) : field_compatible.
Hint Extern 2 (field_compatible0 (Tarray _ _ _) nil _) =>
(eapply field_compatible0_array_smaller0; [eassumption | omega]) : field_compatible.
Hint Extern 2 (field_compatible0 (tarray _ _) nil _) =>
(eapply field_compatible0_array_smaller0; [eassumption | omega]) : field_compatible.
Hint Extern 2 (field_compatible0 (Tarray _ _ _) (ArraySubsc _ :: nil) _) =>
(eapply field_compatible0_array_smaller1; [eassumption | omega | omega]) : field_compatible.
Hint Extern 2 (field_compatible0 (tarray _ _) (ArraySubsc _ :: nil) _) =>
(eapply field_compatible0_array_smaller1; [eassumption | omega | omega]) : field_compatible.
Arguments nested_field_array_type {cs} t gfs lo hi / .
Hint Resolve field_compatible_field_compatible0 : field_compatible.

Lemma field_compatible0_ArraySubsc0:
forall {cs: compspecs} t gfs p,
field_compatible0 t gfs p ->
legal_nested_field0 t (gfs SUB 0) ->
field_compatible0 t (gfs SUB 0) p.