--- a/src/HOL/Decision_Procs/Reflected_Multivariate_Polynomial.thy Mon Feb 21 23:14:36 2011 +0100
+++ b/src/HOL/Decision_Procs/Reflected_Multivariate_Polynomial.thy Mon Feb 21 23:14:36 2011 +0100
@@ -121,7 +121,7 @@
"polyadd (C c, C c') = C (c+\<^sub>Nc')"
"polyadd (C c, CN c' n' p') = CN (polyadd (C c, c')) n' p'"
"polyadd (CN c n p, C c') = CN (polyadd (c, C c')) n p"
-stupid: "polyadd (CN c n p, CN c' n' p') =
+ "polyadd (CN c n p, CN c' n' p') =
(if n < n' then CN (polyadd(c,CN c' n' p')) n p
else if n'<n then CN (polyadd(CN c n p, c')) n' p'
else (let cc' = polyadd (c,c') ;