Module CSHL_Def := CSHL_Def.

Lemma semax_extract_exists: forall {CS: compspecs} {Espec: OracleKind}, forall (A : Type) (P : A -> environ->mpred) c (Delta: tycontext) (R: ret_assert), (forall x, @semax CS Espec Delta (P x) c R) -> @semax CS Espec Delta (EX x:A, P x) c R.