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.

(* Specifications: *)
Lemma state_join_var_eq : forall (s0 s1 s : state) x y,
join s0 s1 s -> (x === y) s0 -> (x === y) s.
Lemma state_join_var_eq' : forall (s0 s1 s : state) x y,
join s0 s1 s -> (x === y) s -> (x === y) s0.
Lemma lseg_nil_or_loc : forall x y h, lseg x y h -> nil_or_loc y.
(* rule w2 *)
Lemma w_lseg_nil : forall y Sigma s,
clause_denote (NegSpaceClause nil (Lseg Nil y :: Sigma) [Eqv y Nil]) s.