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

(* Specifications: *)
Lemma order_eqv_sound a :
pure_atom_denote a = pure_atom_denote (order_eqv_pure_atom a).
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).