Section TruthLemma.
Context {L: Language}
{minL: MinimumLanguage L}
{pL: PropositionalLanguage L}
{sepconL: SepconLanguage L}
{wandL: WandLanguage L}
{GammaP: Provable L}
{GammaD: Derivable L}
{SC: NormalSequentCalculus L GammaP GammaD}
{bSC: BasicSequentCalculus L GammaD}
{minSC: MinimumSequentCalculus L GammaD}
{ipSC: IntuitionisticPropositionalSequentCalculus L GammaD}
{AX: NormalAxiomatization L GammaP GammaD}
{minAX: MinimumAxiomatization L GammaP}
{ipAX: IntuitionisticPropositionalLogic L GammaP}
{sepconAX: SepconAxiomatization L GammaP}
{wandAX: WandAxiomatization L GammaP}
{MD: Model}
{kMD: KripkeModel MD}
{M: Kmodel}
{R: Relation (Kworlds M)}
{J: Join (Kworlds M)}
{SM: Semantics L MD}
{fsepconSM: SepconSemantics L MD M SM}
{fwandSM: WandSemantics L MD M SM}.
Context (cP: context -> Prop)
(rel: bijection (Kworlds M) (sig cP)).
Hypothesis H_R: forall m n Phi Psi, rel m Phi -> rel n Psi -> (m <= n <-> Included _ (proj1_sig Phi) (proj1_sig Psi)).
Hypothesis H_J: forall m1 m2 m Phi1 Phi2 Phi, rel m1 Phi1 -> rel m2 Phi2 -> rel m Phi -> (join m1 m2 m <-> Included _ (context_sepcon (proj1_sig Phi1) (proj1_sig Phi2)) (proj1_sig Phi)).

Lemma truth_lemma_wand
(AL_DC: at_least derivable_closed cP)
(LIN_CD: forall x, Lindenbaum_constructable (cannot_derive x) cP)
(LIN_SR: forall (Phi: context) (Psi: sig cP), Lindenbaum_constructable (context_sepcon_included_r Phi (proj1_sig Psi)) cP)
(x y: expr)
(IHx: forall m Phi, rel m Phi -> (KRIPKE: M, m |= x <-> proj1_sig Phi x))
(IHy: forall m Phi, rel m Phi -> (KRIPKE: M, m |= y <-> proj1_sig Phi y)):
forall m Phi, rel m Phi -> (KRIPKE: M, m |= x -* y <-> proj1_sig Phi (x -* y)).