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

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.