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}