SET_RULE : term -> thm
# SET_RULE `{x | ~(x IN s <=> x IN t)} = (s DIFF t) UNION (t DIFF s)`;;
...
val it : thm = |- {x | ~(x IN s <=> x IN t)} = s DIFF t UNION t DIFF s
# SET_RULE
`UNIONS {t y | y IN x INSERT s} = t x UNION UNIONS {t y | y IN s}`;;
val it : thm =
|- UNIONS {t y | y IN x INSERT s} = t x UNION UNIONS {t y | y IN s}