Opaque MultTwoPowerLength_e.
(** Def 14 of (Rose) *)
Definition DivTwoPower'_e : Cobham :=
Rec2
(Proj 1 0)
(Comp 3 Div2_e [Proj 3 1])
(Proj 2 1).

(* Specifications: *)
Lemma arity_DivTwoPower' :
arity DivTwoPower'_e = ok_arity 2.
Lemma length_DivTwoPower' : forall l,
length (Sem DivTwoPower'_e l) = length (hd nil (tl l)) - length (hd nil l).
Lemma rec_bounded_DivTwoPower' :
rec_bounded DivTwoPower'_e.
Lemma DivTwoPower'_correct_bs : forall l,
Sem DivTwoPower'_e l =
fun_power (length (hd nil l)) (@tl _) (hd nil (tl l)).
Lemma DivTwoPower'_correct : forall l,
bs2nat (Sem DivTwoPower'_e l) =
fun_power (length (hd nil l)) div2 (bs2nat (hd nil (tl l))).