Local Arguments getThreadR {_} {_} {_} _ _ _.
Local Arguments getThreadC {_} {_} {_} _ _ _.
Local Arguments personal_mem : clear implicits.
Local Arguments updThread {_} {_} {_} _ _ _ _ _.
Local Arguments updThreadR {_} {_} {_} _ _ _ _.
Local Arguments updThreadC {_} {_} {_} _ _ _ _.
Local Arguments juicyRestrict : clear implicits.
Set Bullet Behavior "Strict Subproofs".

Lemma mem_step_contents_at_Nonempty m m' loc :
Mem.valid_block m (fst loc) ->
mem_step m m' ->
access_at m loc Cur = Some Nonempty ->
contents_at m' loc = contents_at m loc.