Opaque OneMinus_e.
(** 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)).