(*Require Import VST.concurrency.cl_step_lemmas.*)
Set Bullet Behavior "Strict Subproofs".
(** Lemmas common to both parts of the progress/preservation simulation results *)

Lemma level_jm_ ge m tp Phi (compat : mem_compatible_with tp m Phi)
i (cnti : containsThread tp i) :
level (jm_(ge := ge) cnti compat) = level Phi.