Hint Rewrite
@field_at_data_at_cancel'
@field_at_data_at
@field_at__data_at_
@data_at__data_at : cancel.
(* END new experiments *)

Lemma data_at__tarray:
forall {CS: compspecs} sh t n,
data_at_ sh (tarray t n) =
data_at sh (tarray t n) (list_repeat (Z.to_nat n) (default_val t)).