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

Lemma provable_wand_sepcon_modus_ponens1: forall (x y: expr),
|-- (x -* y) * x --> y.