Opaque DivDivTwoPower_e.
(** Def 16 of (Rose) *)
Fixpoint Repeat_e (n l : nat) (b : bool) : Cobham :=
match l with
| 0 => Zero_e n
| S l' => Comp n (Succ b) [Repeat_e n l' b]
end.

Lemma arity_Repeat : forall n len b,
arity (Repeat_e n len b) = ok_arity n.