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 v,
v = list_repeat (Z.to_nat n) (default_val t) ->
data_at_ sh (tarray t n) = data_at sh (tarray t n) v.