; COMMAND-LINE: --quiet
(set-logic ALL)
(set-info :status sat)
(set-option :produce-models true)
(declare-fun A () (Set Int))
(declare-fun a () Int)
(assert (not (= A (as emptyset (Set Int)))))
(assert (member 10 A))
(assert (= a (choose A)))
;(assert (exists ((x Int)) (and (= x (choose A)) (= x a))))
(check-sat)