Procedure from library poly.lib (see poly_lib).
poly.lib
numerator(n); n number
number, the numerator of n
Example:
LIB "poly.lib"; ring r = 0,x, dp; number n = 3/2; numerator(n); → 3
See also: cleardenom; content; denominator.