Inductive valid_genv {F V:Type} (ge:Genv.t F V) (m:mem) : Type :=
mk_valid_genv :
(forall b, isGlobalBlock ge b=true -> val_valid (Vptr b Ptrofs.zero) m) ->
(forall b f, Genv.find_funct_ptr ge b = Some f -> val_valid (Vptr b Ptrofs.zero) m) ->
valid_genv ge m.

Lemma loadbytes_valid: forall m (WD: mem_wd m) b ofs' n bytes
(LD: Mem.loadbytes m b (Int.unsigned ofs') n = Some bytes)
v (B: In v bytes),
memval_inject (Mem.flat_inj (Mem.nextblock m)) v v.