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}