(*Require Import VST.concurrency.cl_step_lemmas.*)
Set Bullet Behavior "Strict Subproofs".
(** Lemmas common to both parts of the progress/preservation simulation results *)
Definition pures_same phi1 phi2 := forall loc k pp, phi1 @ loc = PURE k pp <-> phi2 @ loc = PURE k pp.

Lemma m_phi_jm_ ge m (tp : jstate ge) phi i cnti compat :
m_phi (@jm_ ge tp m phi i cnti compat) = @getThreadR _ _ _ i tp cnti.