Module VSM := VSM.Module SPredLems := SPredLemmas VSM.Module Clausify := Clausify_Sound VSM.

(* 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.