Opaque MultOneMinus'_e.
Definition MultOneMinus_e : Cobham :=
Comp 2 MultOneMinus'_e [Proj 2 0; Comp 2 Normalize_e [Proj 2 1]].

(* Specifications: *)
Lemma arity_MultOneMinus : arity MultOneMinus_e = ok_arity 2.
Lemma rec_bounded_MultOneMinus :
rec_bounded MultOneMinus_e.
Lemma MultOneMinus_correct : forall l,
bs2nat (Sem MultOneMinus_e l) = bs2nat (hd nil l) * (1 - bs2nat (hd nil (tl l))).