End CL_SOUND.
Module CL_Sound (VSM : VERISTAR_MODEL) : CL_SOUND with Module VSM := VSM.
Module VSM := VSM.

Lemma list_denote_intersection_filter_nonreflex (B: spred) (l: list pure_atom) :
listd pure_atom_denote inter B l =
listd pure_atom_denote inter B (filter nonreflex_atom l).