blob: 9f8efdfffc983984dbf2b706baed5123a6be07c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
; EXPECT: unsat
(set-option :incremental false)
(set-logic ALL)
(set-option :sets-ext true)
(declare-sort Atom 0)
(declare-fun x () (Set (Tuple Atom Atom)))
(declare-fun y () (Set (Tuple Atom Atom)))
(declare-fun r () (Set (Tuple Atom Atom)))
(declare-fun t () (Set (Tuple Atom)))
(declare-fun a () Atom)
(declare-fun b () Atom)
(declare-fun c () Atom)
(declare-fun d () Atom)
(declare-fun e () Atom)
(declare-fun f () Atom)
(declare-fun g () Atom)
(assert (member (mkTuple a) (join_image x 2)))
(assert (member (mkTuple a) (join_image y 3)))
(assert (= x (union (union (union (union (singleton (mkTuple f g)) (singleton (mkTuple b c))) (singleton (mkTuple d e))) (singleton (mkTuple c e))) (singleton (mkTuple f b)))))
(assert (member (mkTuple a f) x))
(assert (member (mkTuple a f) y))
(assert (= x y))
(assert (not (= a b)))
(assert (not (member (mkTuple d) (join_image x 2))))
(assert (= f d))
(check-sat)
|
