test/regress/regress1/bags/map.smt2


1
2
3
4
5
6
7
8
9
10
11
12

(set-logic ALL)
(set-info :status sat)
(declare-fun A () (Bag Int))
(declare-fun B () (Bag Int))
(declare-fun x () Int)
(declare-fun y () Int)
(declare-fun f (Int) Int)
(assert (= A (union_max (bag x 1) (bag y 2))))
(assert (= A (union_max (bag x 1) (bag y 2))))
(assert (= B (bag.map f A)))
(assert (distinct (f x) (f y) x y))
(check-sat)