Try explicitly using the named Wolfram language functions Union and Complement with square brackets.
In Mathematica the following works (dropping the empty set):
Complement[Subsets[{1, 2, 3, a, b, c, d, e}], {#} & /@ {1, 2, 3, a, b, c, d, e}]