unfold array_pred, unfold_reptype, aggregate_pred.array_pred. entailer.
Qed.

(* Specifications: *)
Lemma Tarray_0_emp' sh c: field_compatible (Tarray tuchar 0 noattr) nil c ->
emp |-- data_at sh (Tarray tuchar 0 noattr) nil c.
Lemma data_at_weak_valid_ptr: forall (sh : Share.t) (t : type) (v : reptype t) (p : val),
sepalg.nonidentity sh ->