Definition ContentsMap_IE_FUN (j12:meminj) (m1 m2 m3':Mem.mem) (b:block):
ZMap.t memval.
destruct (plt b (Mem.nextblock m3')).
apply(CM_block_IE_existsT j12 m1 m2 m3' b).
apply (ZMap.init Undef).
Defined.

Lemma ContentsMap_IE_existsT: forall (j12:meminj) (m1 m2 m3':Mem.mem),
{ M : PMap.t (ZMap.t memval) |
fst M = ZMap.init Undef /\
forall b, PMap.get b M = ContentsMap_IE_FUN j12 m1 m2 m3' b}.