Section INIT_MEM.
Variables m tm: mem.
Hypothesis IM: Genv.init_mem p = Some m.
Hypothesis TIM: Genv.init_mem tp = Some tm.

Lemma Mem_getN_forall2:
forall (P: memval -> memval -> Prop) c1 c2 i n p,
list_forall2 P (Mem.getN n p c1) (Mem.getN n p c2) ->
p <= i -> i < p + Z.of_nat n ->
P (ZMap.get i c1) (ZMap.get i c2).