Section SepconRules.
Context {L: Language}
{minL: MinimumLanguage L}
{sepconL: SepconLanguage L}
{Gamma: Provable L}
{minAX: MinimumAxiomatization L Gamma}
{sepconAX: SepconAxiomatization L Gamma}.
Context {pL: PropositionalLanguage L}
{ipAX: IntuitionisticPropositionalLogic L Gamma}.

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