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