Definition isPR (n : nat) (f : naryFunc n) : Set :=
{p : PrimRec n | extEqual n (evalPrimRec _ p) f}.
Definition isPRrel (n : nat) (R : naryRel n) : Set :=
isPR n (charFunction n R).

Lemma plusIndIsPR : isPR 3 (fun n fn b : nat => S fn).
apply (filter010IsPR _ succIsPR).