enrich
natlista
with
functions Σ . : natlist → nat;
Π . : natlist → nat;
axioms sum-empty : ⊦ Σ [] = 0;
used for: s, ls;
sum-rec : ⊦ Σ(n ' + nats) = n + Σ nats;
used for: s, ls;
prod-empty : ⊦ Π [] = 1;
used for: s, ls;
prod-rec : ⊦ Π(n ' + nats) = n * Π nats;
used for: s, ls;
end enrich