Definition concat := smash'_e.
Definition poly_BC_pow (ar:nat)(xn:pow) : BC :=
multl_e ar (repeat (snd xn) (proj ar 0 (fst xn))).

(* Specifications: *)
Lemma poly_BC_pow_arities :
forall ar xn, pWF_pow ar xn -> arities (poly_BC_pow ar xn) = ok_arities ar 0.
Lemma poly_BC_pow_correct :
forall ar xn nl, pWF_pow ar xn ->
length (sem (poly_BC_pow ar xn) nl nil) = peval_pow xn (map (@length _) nl).