blob: 823fb7ed1b5638855c391d714acef27f91748c30 (
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
|
; 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 w () (Set (Tuple Int)))
(declare-fun z () (Set (Tuple Int)))
(declare-fun r2 () (Set (Tuple Int Int)))
(declare-fun a () (Tuple Int Int))
(assert (= a (mkTuple 3 1)))
(assert (member a x))
(declare-fun d () (Tuple Int Int))
(assert (= d (mkTuple 1 3)))
(assert (member d y))
(declare-fun e () (Tuple Int Int))
(assert (= e (mkTuple 4 3)))
(assert (= r (join x y)))
(assert (member (mkTuple 1) w))
(assert (member (mkTuple 2) z))
(assert (= r2 (product w z)))
(assert (not (member e r)))
(assert (subset r r2))
(assert (not (member (mkTuple 3 3) r2)))
(check-sat)
|
