Opaque OneMinusMultPlus_e.
(** Def 10 of (Rose) *)
Definition PlusMod2_e : Cobham :=
Comp 2 Cond [
Proj 2 1;
Proj 2 0;
Comp 2 Succ_e [Proj 2 0];
Proj 2 0
].

(* Specifications: *)
Lemma arity_PlusMod2 :
arity PlusMod2_e = ok_arity 2.
Lemma rec_bounded_PlusMod2 :
rec_bounded PlusMod2_e.
Lemma PlusMod2_correct : forall l,
bs2nat (Sem PlusMod2_e l) =
bs2nat (hd nil l) + mod2 (bs2nat (hd nil (tl l))).