Definition bupd_ret_assert (Q: ret_assert): ret_assert :=
          {| RA_normal := fun rho => bupd (RA_normal Q rho);
             RA_break := fun rho => bupd (RA_break Q rho);
             RA_continue := fun rho => bupd (RA_continue Q rho);
             RA_return := fun v rho => bupd (RA_return Q v rho) |}.

Lemma semax_bupd_elim {CS: compspecs} {Espec: OracleKind}: forall Delta P c R, semax Espec Delta P c R -> semax Espec Delta (fun rho => bupd (P rho)) c R.