enrich
string-data
with
functions . + . : string × string → string;
. ' : char → string;
variables stringvar : string;
stringvar0 : string;
axioms chartostring : ⊦ char ' = char + "";
append-base : ⊦ "" + str = str;
append-rec : ⊦ (char + str) + str0 = char + (str + str0);
end enrich