(** Def 4 of (Rose) *)

Definition Div2_e : Cobham :=
  Rec2
    Zero
    (Proj 2 0)
    (Proj 1 0).

(* Specifications: *)
Lemma arity_Div2 : arity Div2_e = ok_arity 1.
Lemma length_Div2 : forall l, length (Sem Div2_e l) = length (hd nil l) - 1.
Lemma rec_bounded_Div2 : rec_bounded Div2_e.
Lemma Div2_correct_bs : forall l, Sem Div2_e l = tl (hd nil l).
Lemma Div2_correct : forall l, bs2nat (Sem Div2_e l) = div2 (bs2nat (hd nil l)).