Opaque Plusl_e.
Definition Mult_e : Cobham :=
Rec2
(Zero_e 1)
(Comp 3 Plus_e [Proj 3 1; Proj 3 2])
(Comp 2 Smash [
One_e 2;
Comp 2 Smash [Comp 2 (Succ true) [Proj 2 0]; Comp 2 (Succ true) [Proj 2 1] ] ] ).

Lemma arity_Mult : arity Mult_e = ok_arity 2.