src/HOL/Algebra/poly/PolyHomo.thy

tweak

(*
    Universal property and evaluation homomorphism of univariate polynomials
    $Id$
    Author: Clemens Ballarin, started 15 April 1997
*)

PolyHomo = Degree +

(* Instantiate result from Degree.ML *)

instance
  up :: (domain) domain (up_one_not_zero, up_integral)

consts
  EVAL2	:: ('a::ringS => 'b) => 'b => 'a up => 'b::ringS
  EVAL	:: 'a::ringS => 'a up => 'a

defs
  EVAL2_def	"EVAL2 phi a p ==
                 setsum (%i. phi (coeff i p) * a ^ i) {..deg p}"
  EVAL_def	"EVAL == EVAL2 (%x. x)"

end