Module Sound_KripkeIntuitionistic.

Lemma sound_wand_stable {L: Language} {minL: MinimumLanguage L} {pL: PropositionalLanguage L} {wandL: WandLanguage L} {MD: Model} {kMD: KripkeModel MD} {M: Kmodel} {R1: KI.Relation (Kworlds M)} {R2: SS.Relation (Kworlds M)} {J: Join (Kworlds M)} {SAbis: SeparationAlgebraBisStable (Kworlds M)} {SM: Semantics L MD} {fwandSM: WandSemantics L MD M SM} {stableSM: SemanticStable L MD M SM}:
forall x y: expr,
semantic_stable x -> semantic_stable y -> semantic_stable (x -* y).