Section SemaxContext.
Context (Espec: OracleKind).

Lemma semax_unfold' {CS: compspecs}:
semax Espec = fun Delta P c R =>
forall (psi: Clight.genv) Delta' (w: nat)
(TS: tycontext_sub Delta Delta')
(HGG: genv_cenv psi = cenv_cs)
(Prog_OK: believe Espec Delta' psi Delta' w) (k: cont) (st: environ * rmap),
let F := exact_assert (modifiedvars c) st in
closed_wrt_modvars c F ->
rguard Espec psi (exit_tycon c Delta') (frame_ret_assert R F) k w ->
guard Espec psi Delta' (fun rho => F rho * P rho) (Kseq c :: k) w.