Section WandRules.
Context {L: Language}
{minL: MinimumLanguage L}
{sepconL: SepconLanguage L}
{wandL: WandLanguage L}
{Gamma: Provable L}
{minAX: MinimumAxiomatization L Gamma}
{wandX: WandAxiomatization L Gamma}.
Context {sepconAX: SepconAxiomatization L Gamma}.
Context {pL: PropositionalLanguage L}
{ipAX: IntuitionisticPropositionalLogic L Gamma}
{sepcon_orp_AX: SepconOrAxiomatization L Gamma}
{sepcon_false_AX: SepconFalseAxiomatization L Gamma}.

Lemma orp_wand: forall x y z: expr,
|-- (x || y) -* z <--> (x -* z) && (y -* z).