Instance EqDec_statement: EqDec statement := eq_dec_statement.
Instance EqDec_external_function: EqDec external_function := eq_dec_external_function.

Lemma semax_eq:
forall {CS: compspecs} {Espec: OracleKind} Delta P c R,
semax Espec Delta P c R =
(TT |-- (ALL psi : genv,
ALL Delta' : tycontext,
!! (tycontext_sub Delta Delta' /\ genv_cenv psi = cenv_cs) -->
believe Espec Delta' psi Delta' -->
ALL k : cont ,
ALL F : assert ,
!! closed_wrt_modvars c F &&
rguard Espec psi Delta' (frame_ret_assert R F) k -->
guard Espec psi Delta' (fun rho : environ => F rho * P rho) (Kseq c :: k))).