Opaque Repeat_e.
Definition RoseS'_e : Cobham :=
Rec2
(Zero_e 2)
(Comp 4 PlusOneMinusMod2_e [
Comp 4 (Succ false) [Proj 4 1];
Comp 4 DivTwoPower_e [Comp 4 DivTwoPower_e [Proj 4 2; Proj 4 0]; Proj 4 3];
Comp 4 DivDivTwoPower_e [Proj 4 2; Proj 4 2; Comp 4 (Succ false) [Proj 4 0]]
])
(Comp 3 Smash [Proj 3 0; Repeat_e 3 2 true]).
Definition arity_RoseS' :
arity RoseS'_e = ok_arity 3.

Lemma rec_bounded_RoseS' :
rec_bounded RoseS'_e.