Fixpoint Power_e (n:nat) : Cobham :=
match n with
| 0 => One_e 1
| S n' => Comp 1 Mult_e [Proj 1 0; Power_e n']
end.

(* Specifications: *)
Lemma arity_Power n : arity (Power_e n) = ok_arity 1.
Lemma rec_bounded_Power n : rec_bounded (Power_e n).
Lemma Power_correct : forall n l,
length (Sem (Power_e n) l) = power (length (hd nil l)) n.