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

Lemma set_ghost_join : forall a w1 w2 w (J : join w1 w2 w) (Hw2 : res_predicates.noghost w2) H1 H,
join (set_ghost w1 a H1) w2 (set_ghost w a H).