(** *** Lemmas about invariants preserved by coresteps*)

Lemma initial_core_stable_val:
forall  n c m m' pmap1 pmap2 v arg
(Hlt1: permMapLt pmap1 (getMaxPerm m))
(Hlt2: permMapLt pmap2 (getMaxPerm m))
(Hdisjoint: permMapsDisjoint pmap1 pmap2 \/ permMapCoherence pmap1 pmap2)
(Hstep: initial_core semSem n (restrPermMap Hlt1) c m' v arg),
forall b ofs (Hreadable: Mem.perm (restrPermMap Hlt2) b ofs Cur Readable),
Maps.ZMap.get ofs (Mem.mem_contents m) # b =
Maps.ZMap.get ofs (Mem.mem_contents m') # b.