(** ** Power of a polynomial  - [ppower p n] is the polynomial [p] to the power [n]. *)
Fixpoint ppower (p:pol)(n:nat) : pol :=
match n with
| 0 => pcst (fst p) 1
| S n' => pmult p (ppower p n')
end.

Lemma pWF_ppower p n :
pWF p -> pWF (ppower p n).