enrich nat with functions min : (Nat → Bool) → Nat; variables pnat : Nat → Bool; axioms min-def: (∃ n. pnat(n)) → pnat(min(pnat)); min-leq-def: pnat(n) → min(pnat) ≤ n; end enrich