blob: 88375e3e5bc77eea82a15be5842abf1e7969a9ac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
; EXPECT: sat
(set-logic ALL)
(set-option :incremental false)
(declare-datatypes ((role 0)) (((r1) (r2) (r3))))
(declare-datatypes ((|__cvc5_record_pos_(Set role)_neg_(Set role)| 0)) (((|__cvc5_record_pos_(Set role)_neg_(Set role)_ctor| (pos (Set role)) (neg (Set role))))))
(declare-fun emptyRoleSet () (Set role))
(assert (= emptyRoleSet (as set.empty (Set role))))
(declare-fun d () (Array role |__cvc5_record_pos_(Set role)_neg_(Set role)|))
(assert (= (pos (select d r3)) (set.singleton r1)))
(assert (= (pos (select d r2)) (set.union (set.singleton r2) (set.singleton r3))))
(assert (= (neg (select d r2)) (set.singleton r1)))
(check-sat)
|