(** * Basic polynomials *)
(** ** Constant polynomial  - [pcst ar a] is the constant polynomial with [ar] variables and equal to the constant [a]. *)
Definition pcst (ar a:nat) : pol :=
(ar, [(a,nil)]).

Lemma pscalar_mon_correct : forall n m l,
peval_mon (pscalar_mon n m) l = n * peval_mon m l.