Section WandFrame.
Context {L: Language}
{minL: MinimumLanguage L}
{sepconL: SepconLanguage L}
{wandL: WandLanguage L}
{Gamma: Provable L}
{minAX: MinimumAxiomatization L Gamma}
{sepconAX: SepconAxiomatization L Gamma}
{wandAX: WandAxiomatization L Gamma}.

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