summaryrefslogtreecommitdiff
path: root/test/regress/regress1/rels/strat.cvc.smt2
blob: 0cc6905f2205238547886abe8e59558c0f585069 (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 (Tuple Int Int) (Tuple Int Int))))
(declare-fun y () (Set (Tuple (Tuple Int Int) (Tuple Int Int))))
(declare-fun z () (Set (Tuple Int Int)))
(declare-fun w () (Set (Tuple Int Int)))
(declare-fun a () (Tuple Int Int))
(declare-fun b () (Tuple Int Int))
(declare-fun c () (Tuple (Tuple Int Int) (Tuple Int Int)))
(assert (not (= a b)))
(assert (member a z))
(assert (member b z))
(assert (member (mkTuple a b) x))
(assert (member (mkTuple b a) x))
(assert (member c x))
(assert (and (not (= c (mkTuple a b))) (not (= c (mkTuple b a)))))
(check-sat)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback