Module VSM := VSM.Module CS  := Clausify_Sound VSM.Module SPS := SP_Sound VSM.Module NS  := Norm_Sound VSM.Module WFS := WF_Sound VSM.Module UFS := UF_Sound VSM.Module CL  := CL_Sound VSM.

(* Specifications: *)
Lemma relim1_sound c s st : clause_denote c st -> setd clause_denote inter TT s st -> setd clause_denote inter TT (relim1 c s) st.
Lemma incorp_sound s t st : setd clause_denote inter TT s st -> setd clause_denote inter TT t st -> setd clause_denote inter TT (incorp s t) st.
Lemma positive_base_case : forall n: positive, O = nat_of_P n - 1 -> n=1%positive.