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

(* Specifications: *)
Lemma memory_block_mapsto_:
forall sh t p,
type_is_by_value t = true ->
type_is_volatile t = false ->
size_compatible t p ->
align_compatible t p ->
memory_block sh (sizeof t) p = mapsto_ sh t p.
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.
Lemma memory_block_size_compatible:
forall sh t p,
memory_block sh (sizeof t) p =
!! (size_compatible t p) && memory_block sh (sizeof t) p.