veristar.list_denote veristar.heapresolve
veristar.model_type veristar.model.
Module Type SUBST_SOUND.
Declare Module VSD: VERISTAR_DEFS.

Axiom 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.