summaryrefslogtreecommitdiff
path: root/test/regress/regress1/rels/joinImg_2_1.cvc.smt2
blob: a20218fc16bea9ca6ca17bb0ea5c024425c56649 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
; EXPECT: sat
(set-option :incremental false)
(set-logic ALL)
(set-option :sets-ext true)
(declare-sort Atom 0)
(declare-fun x () (Set (Tuple Atom Atom)))
(declare-fun y () (Set (Tuple Atom Atom)))
(declare-fun r () (Set (Tuple Atom Atom)))
(declare-fun t () (Set (Tuple Atom)))
(declare-fun a () Atom)
(declare-fun b () Atom)
(declare-fun c () Atom)
(declare-fun d () Atom)
(declare-fun e () Atom)
(declare-fun f () Atom)
(declare-fun g () Atom)
(assert (set.member (tuple a) (rel.join_image x 2)))
(assert (set.member (tuple a) (rel.join_image y 1)))
(assert (= y (set.union (set.union (set.union (set.singleton (tuple f g)) (set.singleton (tuple b c))) (set.singleton (tuple d e))) (set.singleton (tuple c e)))))
(assert (= x (set.union (set.union (set.union (set.singleton (tuple f g)) (set.singleton (tuple b c))) (set.singleton (tuple d e))) (set.singleton (tuple c e)))))
(assert (or (not (= a b)) (not (= a f))))
(check-sat)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback