*)

(* We use (Vptr b (Int.repr ofs)) instead of p because size_compatible is more  *)
(* difficult to use than simple arithmetic in induction proof.                  *)
Lemma memory_block_data_at_rec_default_val: forall sh t b ofs
(LEGAL_COSU: complete_legal_cosu_type t = true),
0 <= ofs /\ ofs + sizeof t < Ptrofs.modulus ->
align_compatible_rec cenv_cs t ofs ->
data_at_rec sh t (default_val t) (Vptr b (Ptrofs.repr ofs)) =
memory_block sh (sizeof t) (Vptr b (Ptrofs.repr ofs)).