(** * 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 pmatch_inj_top:
forall bc b b' delta ofs, inj_of_bc bc b = Some(b', delta) -> pmatch bc b ofs Ptop.