(******************************************  Lemmas from veric  ******************************************)
Context {cs: compspecs}.

Lemma nonreadable_memory_block_mapsto: forall sh p t v,
~ readable_share sh ->
type_is_by_value t = true ->
type_is_volatile t = false ->
size_compatible t p ->
align_compatible t p ->
tc_val' t v ->
memory_block sh (sizeof t) p = mapsto sh t p v.