--> ****************************************************************
-->                     SET: Generic Sets
--> ****************************************************************

--> ----------------------------------------------------------------
--> SET: parametrized sets (i.e. generic sets)
--> ----------------------------------------------------------------
mod! SET(X :: TRIV) {
[Elt < Set]
-- empty set
op empty : -> Set {constr}
-- assicative and commutative set constructor with identity 'empty'
op __ : Set Set -> Set {constr assoc comm id: empty} .
-- __ is idempotent
ceq (S:Set S) = S if not(S == empty) .
}

--> ----------------------------------------------------------------
--> provide set
provide set

--> ****************************************************************
--> end of file
eof
--> ****************************************************************