Definition Pred : Cobham :=
Rec Zero (Proj 2 0) (Proj 2 0) (Proj 1 0).
(* Eval vm_compute in (arity pred'). *)

(* Specifications: *)
Lemma rec_bounded_Pred : rec_bounded' Pred.
Lemma Pred_correct l :
sem pred nil l = Sem Pred l.
Lemma cond'_correct l :
sem cond nil l = Sem Cond l.