blob: 76ad33633b28b4e2820047dd9e301d8a68a11801 (
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
27
28
|
; EXPECT: unsat
(set-option :incremental false)
(set-logic ALL)
(declare-fun x () (Set (Tuple Int Int)))
(declare-fun y () (Set (Tuple Int Int)))
(declare-fun r () (Set (Tuple Int Int)))
(declare-fun z () (Tuple Int Int))
(assert (= z (mkTuple 1 2)))
(declare-fun zt () (Tuple Int Int))
(assert (= zt (mkTuple 2 1)))
(declare-fun v () (Tuple Int Int))
(assert (= v (mkTuple 1 1)))
(declare-fun a () (Tuple Int Int))
(assert (= a (mkTuple 1 5)))
(declare-fun b () (Tuple Int Int))
(assert (= b (mkTuple 7 5)))
(assert (member (mkTuple 1 7) x))
(assert (member (mkTuple 2 3) x))
(assert (member (mkTuple 3 4) x))
(assert (member b y))
(assert (member (mkTuple 7 3) y))
(assert (member (mkTuple 4 7) y))
(assert (= r (join x y)))
(assert (member z x))
(assert (member zt y))
(assert (not (member a r)))
(check-sat)
|
