Module Type SUBST_SOUND.
Declare Module VSD: VERISTAR_DEFS.

Axiom subst_space_sound : forall i e a,
space_atom_denote (subst_space i e a) =
match a with
| Next x y => space_atom_denote (Next (subst_expr i e x) (subst_expr i e y))
| Lseg x y => space_atom_denote (Lseg (subst_expr i e x) (subst_expr i e y))
end.