End SUBST_SOUND.
Module Subst_Sound (VSD: VERISTAR_DEFS) : SUBST_SOUND with Module VSD := VSD.
Module VSD := VSD.

Lemma subst_pures_delete_same : forall i e pcs B,
list_denote pure_atom_denote (@andp state) B (subst_pures_delete i e pcs) =
list_denote pure_atom_denote (@andp state) B (subst_pures i e pcs).