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.
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) : core. (*FIXME: should be field_compatible*)
(* Hint Extern 2 (field_compatible0 (Tarray _ _ _) (ArraySubsc _ :: nil) _) => (eapply field_compatible0_Tarray_offset; [eassumption | omega | omega]) : field_compatible.  Hint Extern 2 (field_compatible0 (tarray _ _) (ArraySubsc _ :: nil) _) => (eapply field_compatible0_Tarray_offset; [eassumption | omega | omega]) : field_compatible. *)
Transparent sizeof.
Opaque sizeof.

Lemma split2_data_at_Tarray_app:
forall {cs: compspecs} mid n (sh: Share.t) (t: type)
(v1 v2: list (reptype t)) p,
Zlength v1 = mid ->
Zlength v2 = n-mid ->
data_at sh (tarray t n) (v1 ++ v2) p =
data_at sh (tarray t mid) v1  p *
data_at sh (tarray t (n-mid)) v2
(field_address0 (tarray t n) [ArraySubsc mid] p).