blob: b61b9403ff8e1081ba26590ef04dbc40a605fa54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
; EXPECT: unsat
(set-option :incremental false)
(set-logic ALL)
(declare-datatypes ((unit 0)) (((u))))
(declare-fun x () (Set (Tuple (_ BitVec 1) unit (_ BitVec 1))))
(declare-fun y () (Set (Tuple (_ BitVec 1) unit (_ BitVec 1))))
(declare-fun a () (_ BitVec 1))
(declare-fun b () (_ BitVec 1))
(declare-fun c () (_ BitVec 1))
(declare-fun d () (_ BitVec 1))
(declare-fun e () (_ BitVec 1))
(assert (not (= b c)))
(assert (member (mkTuple a u b) x))
(assert (member (mkTuple a u c) x))
(assert (member (mkTuple d u a) y))
(assert (not (member (mkTuple a u u a) (join x y))))
(check-sat)
|
