Section MATCH_INCR.
Variables bc1 bc2: block_classification.
Hypothesis INCR: bc_incr bc1 bc2.
End MATCH_INCR.
(** * 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 inj_of_bc_inv:
forall (bc: block_classification) b b' delta,
inj_of_bc bc b = Some(b', delta) -> bc b <> BCinvalid /\ b' = b /\ delta = 0.