Definition Succ_e : Cobham :=
Comp 1 (Succ true) [Proj 1 0].

(* Specifications: *)
Lemma arity_Succ : arity Succ_e = ok_arity 1.
Lemma rec_bounded_Succ :
rec_bounded Succ_e.
Lemma Succ_correct l :
length (Sem Succ_e l) = S (length (Sem (Proj 1 0) l)).