author | blanchet |
Wed, 24 Feb 2010 11:35:39 +0100 | |
changeset 35341 | c6bbfa9c4eca |
parent 35330 | e7eb254db165 (diff) |
parent 35340 | c32d7269bad1 (current diff) |
child 35342 | 4dc65845eab3 |
--- a/src/HOL/Algebra/abstract/Ring2.thy Wed Feb 24 11:35:10 2010 +0100 +++ b/src/HOL/Algebra/abstract/Ring2.thy Wed Feb 24 11:35:39 2010 +0100 @@ -64,10 +64,8 @@ subsection {* Euclidean domains *} (* -axclass - euclidean < "domain" - - euclidean_ax: "b ~= 0 ==> Ex (% (q, r, e_size::('a::ringS)=>nat). +class euclidean = "domain" + + assumes euclidean_ax: "b ~= 0 ==> Ex (% (q, r, e_size::('a::ringS)=>nat). a = b * q + r & e_size r < e_size b)" Nothing has been proved about Euclidean domains, yet.