enrich
nat-list
with
predicates . < . : nat-list × nat;
axioms ls-base : ⊦ [] < n;
used for: s, ls;
ls-rec : ⊦ m ' + nx < n ↔ m < n ∧ nx < n;
used for: s, ls;
end enrich