1
(*
2
Degree of polynomials
3
$Id$
4
written by Clemens Ballarin, started 22. 1. 1997
5
*)
6
7
Degree = PolyRing +
8
9
consts
10
deg :: ('a::ringS) up => nat
11
12
defs
13
deg_def "deg p == LEAST n. bound n (Rep_UP p)"
14
15
end