End MATCH.
(** * Monotonicity properties when the block classification changes. *)

Lemma genv_match_exten:
forall ge (bc1 bc2: block_classification),
genv_match bc1 ge ->
(forall b id, bc1 b = BCglob id <-> bc2 b = BCglob id) ->
(forall b, bc1 b = BCother -> bc2 b = BCother) ->
genv_match bc2 ge.