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.