summaryrefslogtreecommitdiff
path: root/test/regress/regress1/rels/set-strat.cvc.smt2
blob: a509780acebd0741e9789e18ed9f2cbcbd77469d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
; EXPECT: sat
(set-option :incremental false)
(set-logic ALL)


(declare-fun x () (Set (Tuple Int Int)))
(declare-fun y () (Set (Tuple Int Int)))
(declare-fun w () (Set (Tuple Int Int)))
(declare-fun z () (Set (Tuple (Set (Tuple Int Int)) (Set (Tuple Int Int)))))
(declare-fun a () (Tuple Int Int))
(declare-fun b () (Tuple Int Int))
(assert (not (= a b)))
(assert (set.member a x))
(assert (set.member b y))
(assert (set.member b w))
(assert (set.member (tuple x y) z))
(assert (set.member (tuple w x) z))
(assert (not (set.member (tuple x x) (rel.join z z))))
(assert (set.member (tuple x (set.singleton (tuple 0 0))) (rel.join z z)))
(check-sat)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback