Qed.

(* Specifications: *)
Lemma plusIsPR : isPR 2 plus.
Lemma multIndIsPR : isPR 3 (fun n fn b : nat => fn + b).
apply (filter011IsPR _ plusIsPR).
Lemma multIsPR : isPR 2 mult.
Lemma predIsPR : isPR 1 pred.
Lemma minusIndIsPR : isPR 3 (fun n fn b : nat => pred fn).
apply (filter010IsPR _ predIsPR).
Lemma minusIsPR : isPR 2 minus.
Definition notZero (a : nat) :=
nat_rec (fun n : nat => nat) 0 (fun x y : nat => 1) a.
Lemma notZeroIsPR : isPR 1 notZero.
Definition ltBool (a b : nat) : bool.