enrich
ordered-set,
search-tree
with
functions . .set : tree → set;
comment: abstraction function from trees to sets;
axioms in-set : ⊦ a ∈ t.set ↔ a ∈ t;
used for: s, ls;
end enrich