src/HOL/Fundamental_Theorem_Algebra.thy
changeset 29485 ec072307c69b
parent 29478 4a2482e16934
child 29538 5cc98af1398d
--- a/src/HOL/Fundamental_Theorem_Algebra.thy	Wed Jan 14 19:38:55 2009 +0100
+++ b/src/HOL/Fundamental_Theorem_Algebra.thy	Wed Jan 14 13:47:14 2009 -0800
@@ -970,6 +970,7 @@
 definition
   order :: "'a::{idom,recpower} \<Rightarrow> 'a poly \<Rightarrow> nat"
 where
+  [code del]:
   "order a p = (LEAST n. \<not> [:-a, 1:] ^ Suc n dvd p)"
 
 lemma degree_power_le: "degree (p ^ n) \<le> degree p * n"