Opaque MultTwoPowerLength'_e.
Definition MultTwoPowerLength_e : Cobham :=
Comp 2 MultTwoPowerLength'_e [Proj 2 1; Proj 2 0].

(* Specifications: *)
Lemma arity_MultTwoPowerLength :
arity MultTwoPowerLength_e = ok_arity 2.
Lemma rec_bounded_MultTwoPowerLength :
rec_bounded MultTwoPowerLength_e.
Lemma MultTwoPowerLength_correct : forall l,
bs2nat (Sem MultTwoPowerLength_e l) =
bs2nat (hd nil l) * power 2 (length (hd nil (tl l))).