enrich
elem-list-repr-base
with
functions pack : list → buffer;
axioms pack-nil : ⊦ pack([]) = mkbuf(0);
used for: s, ls;
pack-rec : ⊦ pack(a ' + x) = pack(a) + pack(x);
used for: s, ls;
end enrich