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

Lemma wand_mono: forall x1 x2 y1 y2,
|-- x2 --> x1 -> |-- y1 --> y2 -> |-- (x1 -* y1) --> (x2 -* y2).