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.

(* Specifications: *)
Lemma arity_Repeat : forall n len b,
arity (Repeat_e n len b) = ok_arity n.
Lemma rec_bounded_Repeat : forall n len b,
rec_bounded (Repeat_e n len b).
Lemma length_Repeat : forall n l b l',
length (Sem (Repeat_e n l b) l') = l.