Definition store_byte_list m b ofs lv :=
Mem.storebytes m b ofs (concat (map (encode_val Mint8unsigned) lv)).

Lemma has_ext_eq' : forall {Z} (z : Z) phi, app_pred (has_ext z) phi ->
ghost_of phi = [Some (ext_ghost z, NoneP)] /\ forall l, identity (phi @ l).