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

Lemma length_DivTwoPower : forall l,
length (Sem DivTwoPower_e l) = length (hd nil l) - length (hd nil (tl l)).