Lists, rationals, polynomials and intervals - Implementation (more functions) : Rat_poly_common.function_of

let function_of_poly = function

  p -> function a -> eval_poly (p, a)