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

Corollary initial_core_disjoint_val:
forall (tp : t)  (m m' : mem) i j (Hneq: i <> j) n v arg
(c c' : semC)
(pfi : containsThread tp i) (pfj : containsThread tp j)
(Hcomp : mem_compatible tp m) (b : block) (ofs : Z)
(Hreadable: Mem.perm (restrPermMap (DryHybridMachine.compat_th _ _ Hcomp pfj).1) b ofs Cur Readable \/
Mem.perm (restrPermMap (DryHybridMachine.compat_th _ _ Hcomp pfj).2) b ofs Cur Readable)
(Hcorestep: initial_core semSem n (restrPermMap (DryHybridMachine.compat_th _ _ Hcomp pfi).1) c m' v arg)
(Hinv: invariant tp),
Maps.ZMap.get ofs (Mem.mem_contents m) # b =
Maps.ZMap.get ofs (Mem.mem_contents m') # b.