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

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