Section extensions.
Context {CS: compspecs} {Espec: OracleKind}.

Lemma semax_straight_simple:
forall Delta (B: assert) P c Q,
(forall rho, boxy extendM (B rho)) ->
(forall jm jm1 Delta' ge ve te rho k F f,
tycontext_sub Delta Delta' ->
app_pred (B rho) (m_phi jm) ->
guard_environ Delta' f rho ->
closed_wrt_modvars c F ->
rho = construct_rho (filter_genv ge) ve te  ->
age jm jm1 ->
((F rho * |>P rho) && funassert Delta' rho) (m_phi jm) ->
rename H2 into RS.