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

Lemma subst_spaces_sound: forall AL i e,
space_denote (map (subst_space i e) AL)  =
list_denote (fun a => space_atom_denote (subst_space i e a)) sepcon emp AL.