Local Open Scope logic_base.
Local Open Scope syntax.
Section ContextProperties.
Context {L: Language}
{minL: MinimunLanguage L}
{pL: PropositionalLanguage L}
{sL: SeparationLanguage L}
{Gamma: ProofTheory L}.
Definition context_sepcon (Phi Psi: context): context :=
fun z => exists x y, z = x * y /\ Phi |-- x /\ Psi |-- y.
Definition context_sepcon_included_l (Phi2 Psi: context): context -> Prop :=
fun Phi1 => Included _ (context_sepcon Phi1 Phi2) Psi.
Definition context_sepcon_included_r (Phi1 Psi: context): context -> Prop :=
fun Phi2 => Included _ (context_sepcon Phi1 Phi2) Psi.
Context {SC: NormalSequentCalculus L Gamma}
{bSC: BasicSequentCalculus L Gamma}
{fwSC: FiniteWitnessedSequentCalculus L Gamma}
{minSC: MinimunSequentCalculus L Gamma}
{ipSC: IntuitionisticPropositionalSequentCalculus L Gamma}
{AX: NormalAxiomatization L Gamma}
{minAX: MinimunAxiomatization L Gamma}
{ipGamma: IntuitionisticPropositionalLogic L Gamma}
{sGamma: SeparationLogic L Gamma}.

Lemma wand_deduction_theorem:
forall (Phi: context) x y,
context_sepcon Phi (Union _ empty_context (Singleton _ x)) |-- y <->
Phi |-- x -* y.