End UF_SOUND.
Module UF_Sound (VSM : VERISTAR_MODEL) : UF_SOUND with Module VSM := VSM.
Module VSM := VSM.
Module SPredLems := SPredLemmas VSM. Import SPredLems.
Module Clausify := Clausify_Sound VSM. Import Clausify.

(* Specifications: *)
Lemma spatial_resolution_sound:
forall (nc pc c: clause) s,
clause_denote nc s -> clause_denote pc s ->
spatial_resolution nc pc = M.singleton c ->
clause_denote c s.
Lemma sr_sound c1 c2 (b: spred) s :
clause_denote c1 s -> clause_denote c2 s -> b s ->
setd clause_denote inter b (spatial_resolution c1 c2) s.