blob: 2e4b76b4663da9e3490778e6795d38168b3b03c3 (
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
32
33
34
35
36
37
|
(set-logic QF_UFLIAFS)
(set-option :produce-models true)
(set-option :incremental true)
(declare-const A (Set Int))
(declare-const B (Set Int))
(declare-const C (Set Int))
(declare-const x Int)
; Verify union distributions over intersection
(check-sat-assuming
(
(distinct
(intersection (union A B) C)
(union (intersection A C) (intersection B C)))
)
)
; Verify emptset is a subset of any set
(check-sat-assuming
(
(not (subset (as emptyset (Set Int)) A))
)
)
; Find an element in {1, 2} intersection {2, 3}, if there is one.
(check-sat-assuming
(
(member
x
(intersection
(union (singleton 1) (singleton 2))
(union (singleton 2) (singleton 3))))
)
)
(echo "A member: ")
(get-value (x))
|