Module ConseqFacts := GenConseqFacts (Def) (Conseq).

Lemma semax_extract_prop:
forall {CS: compspecs} {Espec: OracleKind},
forall Delta (PP: Prop) P c Q,
(PP -> @semax CS Espec Delta P c Q) ->
@semax CS Espec Delta (!!PP && P) c Q.