enrich
nat-bag
with
functions . .max : nat-bag → nat;
predicates unique-elems : nat-bag;
axioms max-rec : ⊦ (bag ++ n).max = (bag = ∅ ⊃ n;(bag.max > n ⊃ bag.max;n));
used for: ls;
unique-elems : ⊦ unique-elems(bag) ↔ (∀ n. count(n, bag) ≤ 1);
used for: ls;
end enrich