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

Lemma semax_orp:
forall {CS: compspecs} {Espec: OracleKind},
forall Delta P1 P2 c Q,
@semax CS Espec Delta P1 c Q ->
@semax CS Espec Delta P2 c Q ->
@semax CS Espec Delta (P1 || P2) c Q.