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 length_Repeat : forall n l b l',
length (Sem (Repeat_e n l b) l') = l.