set.clj

(def E
  #{#{:a :b}
    #{:c :d}
    #{:e :f}})

(defn equal [& args]
  (boolean
   (seq (for [e E
              :when (every? #(contains? e %) args)]
          e))))

;; user=> (equal :a :b)
;; true
;; user=> (equal :c :d)
;; true
;; user=> (equal :a :d)
;; false
;; user=> (equal)
;; true
;; user=>