Module Extr: CLIGHT_SEPARATION_HOARE_LOGIC_EXTRACTION with Module CSHL_Def := CSHL_Def.
Module CSHL_Def := CSHL_Def.
Arguments semax {_} {_} _ _ _ _.

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.