blob: 1cdeffbfff6575810a0f7f3ec7cf4ab3c364f042 (
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
|
; EXPECT: unsat
(set-option :incremental false)
(set-logic ALL)
(declare-sort Atom 0)
(declare-fun x () (Set (Tuple Int Int)))
(declare-fun id () (Set (Tuple Int Int)))
(declare-fun t () (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 v () (Tuple Int Int))
(assert (= v (tuple 1 1)))
(declare-fun a () (Tuple Int Int))
(assert (= a (tuple 1 5)))
(assert (set.member (tuple 1) t))
(assert (set.member (tuple 2) t))
(assert (set.member z x))
(assert (set.member zt x))
(assert (set.member v x))
(assert (set.member a x))
(assert (= id (rel.iden t)))
(assert (not (set.member (tuple 1 1) (set.intersection id x))))
(check-sat)
|
