Section Machine.
Context (ge : genv).
Definition same_except_cur (m m' : Mem.mem) :=
Mem.mem_contents m = Mem.mem_contents m' /\
max_access_at m = max_access_at m' /\
Mem.nextblock m = Mem.nextblock m'.

Lemma mem_compatible_with_same_except_cur (tp : jstate ge) m m' phi :
same_except_cur m m' ->
mem_compatible_with tp m phi ->
mem_compatible_with tp m' phi.