Opaque Div2_e.
(** Def 5 of (Rose) *)
Definition Mod2_e : Cobham :=
Rec
Zero
(False_e 2)
(One_e 2)
(One_e 1).

(* Specifications: *)
Lemma arity_Mod2 : arity Mod2_e = ok_arity 1.
Lemma rec_bounded_Mod2 :
rec_bounded Mod2_e.
Lemma Mod2_correct_bs : forall l,
(hd nil l) <> nil ->
Sem Mod2_e l = [hd true (hd nil l)].
Lemma Mod2_correct : forall l,
bs2nat (Sem Mod2_e l) = mod2 (bs2nat (hd nil l)).