Opaque Pred'_e.
Definition Pred_e : Cobham :=
Comp 1 Pred'_e [Normalize_e].

(* Specifications: *)
Lemma arity_Pred : arity Pred_e = ok_arity 1.
Lemma rec_bounded_Pred :
rec_bounded Pred_e.
Lemma Pred_correct : forall l,
bs2nat (Sem Pred_e l) =  bs2nat (hd nil l) - 1.