checks that the recursive sets are Consts before taking
them apart! Bug was introduced during the translation to theory sections.
(* Title: HOL/equalities
ID: $Id$
Author: Lawrence C Paulson, Cambridge University Computer Laboratory
Copyright 1994 University of Cambridge
Equalities involving union, intersection, inclusion, etc.
*)
equalities = subset