(set-logic ALL)
(set-option :fmf-bound true)
(set-option :produce-models true)
(set-info :status sat)
(declare-fun A () (Bag String))
(declare-fun B () (Bag String))
(declare-fun C () (Bag String))
(assert (distinct A B C (as bag.empty (Bag String))))
(assert (= C (bag.union_disjoint A B)))
(assert (= (bag.card C) 10000000))
(check-sat)