Opaque PlusMod2_e.
(** Def 11 of (Rose) *)
Definition PlusOneMinusMod2_e : Cobham :=
Comp 3 Cond [
Proj 3 2;
Proj 3 0;
Comp 3 PlusOneMinus_e [Proj 3 0; Proj 3 1];
Proj 3 0
].

Lemma PlusOneMinusMod2_length : forall l,
length (Sem PlusOneMinusMod2_e l) <= S (length (hd nil l)).