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

Lemma funassert_pures_eq G rho phi1 phi2 :
(level phi1 >= level phi2)%nat ->
pures_eq phi1 phi2 ->
app_pred (funassert G rho) phi1 ->
app_pred (funassert G rho) phi2.