(** [decode_val], applied to lists of memory values that are pairwise related by [memval_inject], returns values that are related by [Val.inject]. *)

Lemma proj_bytes_inject:
forall f vl vl',
list_forall2 (memval_inject f) vl vl' ->
forall bl,
proj_bytes vl = Some bl ->
proj_bytes vl' = Some bl.