Definition bc_incr (bc1 bc2: block_classification) : Prop :=
forall b, bc1 b <> BCinvalid -> bc2 b = bc1 b.
Section MATCH_INCR.
Variables bc1 bc2: block_classification.
Hypothesis INCR: bc_incr bc1 bc2.

Lemma bmatch_incr: forall m b ab, bmatch bc1 m b ab -> bmatch bc2 m b ab.
End MATCH_INCR.