(** * Matching and memory injections. *)
Definition inj_of_bc (bc: block_classification) : meminj :=
fun b => match bc b with BCinvalid => None | _ => Some(b, 0) end.

Lemma vmatch_list_inj:
forall bc vl xl, list_forall2 (vmatch bc) vl xl -> Val.inject_list (inj_of_bc bc) vl vl.