blob: eb09d698fac222b1b0edfa608c4a8677bfe91f3a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
; EXPECT: sat
(set-option :incremental false)
(set-option :sets-ext true)
(set-logic ALL)
(declare-sort Atom 0)
(declare-fun x () (Set (Tuple Atom Atom)))
(declare-fun t () (Set (Tuple Atom)))
(declare-fun univ () (Set (Tuple Atom)))
(declare-fun univ2 () (Set (Tuple Atom Atom)))
(declare-fun a () Atom)
(declare-fun b () Atom)
(declare-fun c () Atom)
(declare-fun d () Atom)
(assert (= univ (as univset (Set (Tuple Atom)))))
(assert (= univ2 (as univset (Set (Tuple Atom Atom)))))
(assert (= univ2 (product univ univ)))
(assert (member (mkTuple a b) x))
(assert (member (mkTuple c d) x))
(assert (not (= a b)))
(assert (subset (iden univ) x))
(check-sat)
|
