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_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.