Definition Poly_pow (ar:nat) (xn:pow) : Cobham :=
Comp ar (Power_e (snd xn)) [Proj ar (fst xn)].

(* Specifications: *)
Lemma arity_Poly_pow : forall ar xn,
pWF_pow ar xn -> arity (Poly_pow ar xn) = ok_arity ar.
Lemma rec_bounded_Poly_pow : forall ar xn,
rec_bounded (Poly_pow ar xn).
Lemma Poly_pow_correct : forall ar xn l,
length (Sem (Poly_pow ar xn) l) = peval_pow xn (map (@length _) l).