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

Lemma env_coherence_pures_eq Z Jspec ge G phi phi' :
(level phi >= level phi')%nat ->
pures_eq phi phi' ->
@env_coherence Z Jspec ge G phi ->
@env_coherence Z Jspec ge G phi'.