Definition bc_incr (bc1 bc2: block_classification) : Prop :=
  forall b, bc1 b <> BCinvalid -> bc2 b = bc1 b.

(* Specifications: *)
Lemma pmatch_incr: forall b ofs p, pmatch bc1 b ofs p -> pmatch bc2 b ofs p.
Lemma vmatch_incr: forall v x, vmatch bc1 v x -> vmatch bc2 v x.
Lemma smatch_incr: forall m b p, smatch bc1 m b p -> smatch bc2 m b p.
Lemma bmatch_incr: forall m b ab, bmatch bc1 m b ab -> bmatch bc2 m b ab.