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

(* Specifications: *)
Lemma arity_Mult : arity Mult_e = ok_arity 2.
Lemma rec_bounded_Mult : rec_bounded Mult_e.
Lemma Mult_correct : forall l,
length (Sem Mult_e l) = length (hd nil l) * length (hd nil (tl l)).