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

(* Specifications: *)
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.
Lemma romatch_exten:
forall (bc1 bc2: block_classification) m rm,
romatch bc1 m rm ->
(forall b id, bc2 b = BCglob id <-> bc1 b = BCglob id) ->
romatch bc2 m rm.