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

Lemma change_compspecs_data_at_cancel2:
forall {cs1 cs2: compspecs} {CCE : change_composite_env cs1 cs2}
(sh: share) (t1 t2: type)
(p: val),
t1 = t2 ->
cs_preserve_type cs1 cs2 (@coeq cs1 cs2 CCE) t1 = true ->
@data_at_ cs1 sh t1 p |-- @data_at_ cs2 sh t2 p.