type se = VAR of var | CONST of EaSet.element | CUP of se * se | CAP of se * string list | MINUS of se * string list | EMPTY