Definition ContentsMap_EFF_FUN  (NB2' b:block) : ZMap.t memval.
destruct (plt b NB2').
apply (CM_block_EFF_existsT b).
apply (ZMap.init Undef).
Defined.

Lemma ContentsMap_EFF_existsT:
forall (NB2':block) ,
{ M : PMap.t (ZMap.t memval) |
fst M = ZMap.init Undef /\
forall b, PMap.get b M =
ContentsMap_EFF_FUN NB2' b}.