diff options
author | mudathirmahgoub <mudathirmahgoub@gmail.com> | 2021-08-30 18:26:43 -0500 |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-08-30 23:26:43 +0000 |
commit | 22c83c12097da6105e6f03e0df70385527e651a4 (patch) | |
tree | fceebd94973d6ffbb02d88c389ebd7c165847b82 /test/regress | |
parent | 321694d4efde0cef18e313d93c8b69835aac3b72 (diff) |
Add kind BAG_MAP and its type rule to bags (#6503)
This PR adds kind BAG_MAP to bags.
Diffstat (limited to 'test/regress')
-rw-r--r-- | test/regress/regress1/bags/map.smt2 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/regress/regress1/bags/map.smt2 b/test/regress/regress1/bags/map.smt2 new file mode 100644 index 000000000..54d671415 --- /dev/null +++ b/test/regress/regress1/bags/map.smt2 @@ -0,0 +1,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) |