Opaque MultOneMinus_e.
(** Def 8 of (Rose) *)
Definition PlusOneMinus'_e : Cobham :=
Comp 2 Cond [
Proj 2 1;
Comp 2 Succ_e [Proj 2 0];
Proj 2 0;
Proj 2 0
].

Lemma PlusOneMinus'_length : forall l,
length (Sem PlusOneMinus'_e [nth 0 l nil; Sem Normalize_e [nth 1 l nil]])
<= S (length (hd nil l)).