(** Def 12 of (Rose) *)
Definition App_e : Cobham :=
Rec (Proj 1 0)
(Comp 3 (Succ false) [Proj 3 1])
(Comp 3 (Succ true) [Proj 3 1])
(Comp 2 Smash [Comp 2 (Succ true) [Proj 2 0]; Comp 2 (Succ true) [Proj 2 1] ]).

(* Specifications: *)
Lemma arity_App : arity App_e = ok_arity 2.
Lemma rec_bounded_App : rec_bounded App_e.
Lemma App_correct : forall l,
Sem App_e l = hd nil l ++ hd nil (tl l).