Module CSHL_Defs := DerivedDefs(CSHL_Def).
(***************** SEMAX_LEMMAS ****************)

Axiom 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.