Load loadpath.
veristar.cclosure veristar.list_denote veristar.superpose_modelsat
veristar.basic veristar.compare.
Module Type SP_SOUND.
Declare Module VSM : VERISTAR_MODEL.

(* Specifications: *)
Axiom check_clauseset_Valid_sound: forall init units g u,
check_clauseset init = (Valid, units, g, u) ->
setd clause_denote inter TT init |-- clause_denote empty_clause.
Axiom check_clauseset_Cexample_sound: forall init units final empty R selected,
check_clauseset init = (C_example R selected, units, final, empty) ->
setd clause_denote inter TT init |--
setd clause_denote inter TT selected &&
setd clause_denote inter TT final &&
listd clause_denote inter TT units.