diff options
Diffstat (limited to 'test/regress/regress1/rels/bv1-unitb.cvc.smt2')
-rw-r--r-- | test/regress/regress1/rels/bv1-unitb.cvc.smt2 | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/regress/regress1/rels/bv1-unitb.cvc.smt2 b/test/regress/regress1/rels/bv1-unitb.cvc.smt2 new file mode 100644 index 000000000..c1db4195f --- /dev/null +++ b/test/regress/regress1/rels/bv1-unitb.cvc.smt2 @@ -0,0 +1,19 @@ +; EXPECT: unsat +(set-option :incremental false) +(set-logic ALL) +(declare-datatypes ((unitb 0)) (((ub (data (_ BitVec 1)))))) + +(declare-fun x () (Set (Tuple (_ BitVec 1) unitb (_ BitVec 1)))) +(declare-fun y () (Set (Tuple (_ BitVec 1) unitb (_ 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)) +(declare-fun u () unitb) +(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) |