summaryrefslogtreecommitdiff
path: root/test/regress/regress1/rels/rel_complex_3.cvc.smt2
blob: 7955cf532eeb0fb716e3d5f344fc89e1c8eeeede (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
; EXPECT: unsat
(set-option :incremental true)
(set-logic ALL)

(declare-fun x () (Set (Tuple Int Int)))
(declare-fun y () (Set (Tuple Int Int)))
(declare-fun z () (Set (Tuple Int Int)))
(declare-fun r () (Set (Tuple Int Int)))
(declare-fun w () (Set (Tuple Int Int)))
(declare-fun f () (Tuple Int Int))
(assert (= f (tuple 3 1)))
(assert (member f x))
(declare-fun g () (Tuple Int Int))
(assert (= g (tuple 1 3)))
(assert (member g y))
(declare-fun h () (Tuple Int Int))
(assert (= h (tuple 3 5)))
(assert (member h x))
(assert (member h y))
(assert (= r (join x y)))
(declare-fun e () (Tuple Int Int))
(assert (not (member e r)))
(assert (not (= z (intersection x y))))
(assert (= z (setminus x y)))
(assert (subset x y))
(assert (member e (join r z)))
(assert (member e x))
(assert (member e (intersection x y)))
(push 1)

(assert true)

(check-sat)

(pop 1)

generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback