Module Type SUBST_SOUND.
Declare Module VSD: VERISTAR_DEFS.

Axiom subst_pures_union_sound: forall P i e B,
list_denote pure_atom_denote (@orp state) B (map (subst_pure i e)P) =
list_denote (fun a => pure_atom_denote (subst_pure i e a)) (@orp state) B P.