blob: 6c822db5b8c1de3533e68f3f37e835708006c04b (
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
29
30
31
|
; EXPECT: sat
(set-option :incremental false)
(set-option :sets-ext true)
(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 t () (Set (Tuple Int)))
(declare-fun u () (Set (Tuple Int)))
(declare-fun univ () (Set (Tuple Int)))
(declare-fun z () (Tuple Int Int))
(assert (= z (tuple 1 2)))
(declare-fun zt () (Tuple Int Int))
(assert (= zt (tuple 2 1)))
(declare-fun s () (Tuple Int Int))
(assert (= s (tuple 1 1)))
(declare-fun a () (Tuple Int Int))
(assert (= a (tuple 1 5)))
(declare-fun b () Int)
(assert (set.member (tuple 1 7) x))
(assert (set.member z x))
(assert (set.member (tuple 7 5) y))
(assert (= t (rel.join_image x 2)))
(assert (= univ (rel.join_image x 0)))
(assert (set.member (tuple 100) t))
(assert (not (set.member (tuple 3) univ)))
(assert (= u (rel.join_image x 1)))
(assert (set.member (tuple 4) (rel.join_image x 2)))
(assert (set.member (tuple b) (rel.join_image x 1)))
(check-sat)
|
