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

Lemma subst_list_denote_sound_space : forall (l : list space_atom) i e,
list_denote space_atom_denote sepcon emp (map (subst_space i e) l) =
match map (subst_space i e) l with
| nil => emp
| _ :: _ => list_denote space_atom_denote sepcon emp (map (subst_space i e) l)
end.