enrich nat with functions . * . : nat × nat → nat prio 10 right; variables m : nat; n : nat; axioms mult-base: m * 0 = 0; mult-rec: m * n +1 = m * n + m; end enrich