(** Def 5 of (Rose) *)

Definition Mod2_e : Cobham :=
  Rec
    Zero
    (False_e 2)
    (One_e 2)
    (One_e 1).

Lemma DivTwoPower'_correct_bs : forall l, Sem DivTwoPower'_e l = fun_power (length (hd nil l)) (@tl _) (hd nil (tl l)).