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] ].

(* Specifications: *)
Lemma arity_DivDivTwoPower :
arity DivDivTwoPower_e = ok_arity 3.
Lemma rec_bounded_DivDivTwoPower :
rec_bounded DivDivTwoPower_e.
Lemma DivDivTwoPower_correct : forall l,
Sem DivDivTwoPower_e l =
skipn (length (nth 1 l nil) - length (nth 2 l nil)) (nth 0 l nil).