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

Lemma check_value_inject:
forall f vl vl',
list_forall2 (memval_inject f) vl vl' ->
forall v v' q n,
check_value n v q vl = true ->
Val.inject f v v' -> v <> Vundef ->
check_value n v' q vl' = true.