Opaque DivTwoPower_e.
(** Def 15 of (Rose) *)
Definition DivDivTwoPower_e : Cobham :=
Comp 3 DivTwoPower_e [Proj 3 0; Comp 3 DivTwoPower_e [Proj 3 1; Proj 3 2] ].

Lemma arity_DivDivTwoPower :
arity DivDivTwoPower_e = ok_arity 3.