src/HOL/Library/Polynomial.thy

--- a/src/HOL/Library/Polynomial.thy	Fri Feb 27 16:05:40 2009 +0100
+++ b/src/HOL/Library/Polynomial.thy	Fri Feb 27 15:37:56 2009 -0800
@@ -106,6 +106,7 @@
 translations
   "[:x, xs:]" == "CONST pCons x [:xs:]"
   "[:x:]" == "CONST pCons x 0"
+  "[:x:]" <= "CONST pCons x (_constrain 0 t)"
 
 lemma Poly_nat_case: "f \<in> Poly \<Longrightarrow> nat_case a f \<in> Poly"
   unfolding Poly_def by (auto split: nat.split)