blob: 0b0cd0d0729c22399867927aaace61601aa2fd30 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
; 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 z () (Set (Tuple Int Int Int Int)))
(assert (member (mkTuple 2 3) x))
(assert (member (mkTuple 5 3) x))
(assert (member (mkTuple 3 9) x))
(assert (= z (product x y)))
(assert (member (mkTuple 1 2 3 4) z))
(assert (not (member (mkTuple 5 9) x)))
(assert (member (mkTuple 3 8) y))
(assert (= y (tclosure x)))
(assert (not (member (mkTuple 1 2) y)))
(check-sat)
|
