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.