End UNCHANGED_ON.

(* Specifications: *)
Lemma unchanged_on_implies:
forall (P Q: block -> Z -> Prop) m m',
unchanged_on P m m' ->
(forall b ofs, Q b ofs -> valid_block m b -> P b ofs) ->
unchanged_on Q m m'.
Lemma unchanged_on_implies:
forall (P Q: block -> Z -> Prop) m m',
unchanged_on P m m' ->
(forall b ofs, Q b ofs -> valid_block m b -> P b ofs) ->
unchanged_on Q m m'.