Section soundness.
Existing Instance unit_kMD.
Context {P: ProgrammingLanguage}
{MD: Model}
{BSS: BigStepSemantics P model}.
Context {L: Language}
{minL: MinimumLanguage L}
{pL: PropositionalLanguage L}
{sepconL: SepconLanguage L}
{wandL: WandLanguage L}
{SM: Semantics L MD}
{R: Relation model}
{po_R: PreOrder Krelation}
{kiSM: KripkeIntuitionisticSemantics L MD (tt: @Kmodel MD (unit_kMD _)) SM}
{kminSM: KripkeMinimumSemantics L MD (tt: @Kmodel MD (unit_kMD _)) SM}
{kpSM: KripkePropositionalSemantics L MD (tt: @Kmodel MD (unit_kMD _)) SM}.

Lemma hoare_consequence_total_sound: forall c P1 P2 Q1 Q2,
valid (AllModel _) (P2 --> P1) ->
valid (AllModel _) (Q1 --> Q2) ->
triple_total_valid P1 c Q1 ->
triple_total_valid P2 c Q2.