End WF_SOUND.
Module WF_Sound (VSM : VERISTAR_MODEL) : WF_SOUND with Module VSM := VSM.
Module VSM := VSM.
Module CL := CL_Sound VSM. Import CL.

Lemma state_join_var_eq : forall (s0 s1 s : state) x y,
join s0 s1 s -> (x === y) s0 -> (x === y) s.