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
].

Lemma PlusMod2_correct : forall l,
bs2nat (Sem PlusMod2_e l) =
bs2nat (hd nil l) + mod2 (bs2nat (hd nil (tl l))).